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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

IF. TIM 

=  00001 0 

#5-64 

LF.UNL 

=  020000 

#5-64 

LF.X2P 

=  000000 

#5-64 

LN.CLO 

=  000000 

*5-64 

LN.DUM 

=  000005 

#5-64 

LN.LOA 

=  000004 

#5-64 

LN.LOO 

=  000003 

#5-64 

_N.OAU 

=  000003 

#5-64 

LN.OFF 

=  000001 

#5-64 

LN.ON 

=  000000 

#5-64 

IN. OOP 

=  000004 

#5-64 

LN.OPE 

=  010001 

#5-64 

LN.REF 

=  CO0U02 

#5-64 

LN.SER 

=  000002 

#5-64 

LN.STA 

=  000017 

#5-64 

LN.SUB 

=  000360 

#5-64 

LN.TRI 

=  000006 

#5-64 

LPSMPT 

=  000010 

#^-61 

8-191 

LPSMUX 

=  OC0004 

#5-61 

LPSTRB 

=  000002 

#5-61 

8-190 

LPSUNT 

=  000001 

#5-61 

LPSWCN 

=  000040 

#5-61 

5-61 

LPSWDV 

=  000020 

#5-61 

5-61 

LPSWLD 

=   000360 

#5-61 

LPSUTR 

=   000200 

#5-61 

5-61 

LPSWUN 

=  000100 

#5-61 

5-61 

LSADJ 

000110 

#5-61 

LSBUF 

000060 

#5-61 

♦7-106 

L$CHN 

000054 

#5-61 

L$COU 

000114 

#5-61 

LSCTB 

000053 

#5-61 

LSCTL 

000002 

#5-61 

LSDDM 

000000 

#5-61 

LSFLG 

000064 

#5-61 

7-109 

LSFLX 

000070 

#5-61 

L$LEN 

000124 

#5-61 

LSLTM 

000070 

#5-61 

LSMSG 

000056 

#5-61 

LSMTYP 

000067 

#5-61 

LSNAM 

000000 

#5-61 

L$^JLE^ 

=   000020 

#5-61 

5--61 

LSNOD 

000112 

#5-61 

L$NXT 

000044 

#5-61 

L$OPT 

000062 

#5-61 

7-132 

L$PAR 

000120 

#5-61 

LSPDV 

000055 

#5-61 

L$PFG 

000041 

#5-61 

•8-190 

LSPLB 

000116 

#5-61 

LSPRO 

000067 

#5-61 

LSPVC 

000004 

#5-61 

LSSCU 

000020 

#5-61 

LSSfR 

000072 

#5-61 

8-193 


7-107 


7-141 


5-61 


-191 


8-207 


7-139 


♦7-163 


-145 


7-152 


7-158 


-193 


-207 


CIREOP 
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CIREST  -  RUD  CIRCUIT  STATUS 
GETADJ  -  Get  an  adjacency 


33^ 
335 
336 
3J7 
338 
339 
3A0 
3A1 
3^2 
3A3 
34A 
3A5 
3A6 
3'.7 
548 
3A9 
350 
351 


00076A 

352  J0076A 

353  000770 
35A  00077A 

355  001000 

356  001 OOA 

357  001006 

358  001012 

359  0010U 

360  001020 

361  001022 

362  001026 

363  001030 
364 

365  001036 

366  0010A2 

367  0010A4 

368  001050 

369  001056 
570 

371  001062 

372  001070 

575  001072 
i7A  001100 
375 

576  001102 
377  001110 

373  001116 
579  001124 
380 

581   001126 

582 

585  OQ-iUO 

384  001144 

385 


005764 
101431 
016405 
062764 
005564 

132765 
001762 
126564 
001556 

016564 

016564 
000405 
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.SBTTL  GtTADJ  -  Get  an  adjacency 
**  Getidj  -  Get  an  adjacency 
Inputs: 


L$ADJ(R4)  =  current  position  in  adjacency  database 
L$C0U(R4)  =  count  of  unscanned  entries  in  adjacency  database 
L$CHN(R4)  =  channel  number  of  circuit 


Output: 


carry  set: 
carry  clear: 


no  more  adjacent  nodes, 
success 


GETADJ: 


012702  114224 


103450 
067702 
011202 
005762 
•^'442 
I.,o202 
001405 


OOOOOOG 

000000 

000016 

000114 

000110 

000004  000110 
000114 

000010  000002 

000005  000054 

000000  000112 
000000  000070 


L$N0D(R4)  =  adjacent  node  address 
L$TSZ(R4)  =  transport  block  size 

All  registers  are  preserved. 


.iUSTK$ 

40$ 

SAVMAP 

MOV 

*"RXPT,R2 

CALL 

aPDVID 

BCS 

20$ 

ADD 

aPDVTA,R2 
(R2),R2 

MOV 

TST 

Z.DSP(R2) 

BEO 

20$ 

MOV 

Z.DAT(R2),R2 

BEQ 

10$ 

MAP 

N$ADJ1(R2) 

10$: 

TST 

L$C0U(R4) 

BLOS 

20$ 

MOV 

L$ADJ(R4),R5 

ADD 

#A$LEN,L$ADJ(R4) 

DEC 

L$C0U(R4) 

GIT6 

#AT$UP,A$TYP(R5) 

StQ 

10$ 

CMPB 

A$C]R'R5),L$CMfJ(R4) 

BME 

10$ 

MOV 

A$N1D(R5),L$N0D(R4) 

MAP 

N$ADj2(R2) 

MOi/ 

A$TSZ(R5),L$TSZ(R4) 

BR 

50$ 

20$: 

RETC 

RO 

50$: 

RESMAP 

40$: 

RETURN 

enter  system  state 

save  APR  6  mapping 

set  up  process  id 

get  PDV  index 

if  CS,  return  nothing 

point  to  PDV  address 

point  to  PDV 

process  resident  ? 

if  EQ,  no  process 

point  to  transport  database 

Br  if  transport  not  loade 

map  to  adjacency  database 

any  urscanr^ed  adjacencies  ? 

if  LOS,  no 

else  get  next  adjacency 

advance  pointer 

change  unscanned  count 

is  this  adjacency  up  ? 
if  EQ,  no 

is  it  for  correct  channel  ? 
if  NE,  keep  walking 

else  get  node  address 
map  to  ADJ2  database 
get  block  size 
and  return  success 

return  failure 

restore  mapp'ng 

back  to  user  state  and  callffr 


RJK05 
♦  ♦-1 
RJK05 


CIREST  -  READ  CIRCUIT  STATUS 


c. 
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SYMBOL  CROSS  REFERENCE 


B  4 

PAGE  2 

CREF   OA.OO 


SYMBOL  VALUE 


LP. ACT 
LF.BRO 
LF.BUT 
LF.ENA 
LF.LPB 

lf.mc: 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.RcA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LP$MPT 

LPSMUX 

LPSTRB 

LPSUNT 


100000 
OOOAOO 
000007 
002000 
001000 
000100 
OOAOOO 
000020 
000200 
040000 
010000 
000040 
000010 
020000 
000000 
000000 
000005 
OOOOOA 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
00001 7 
000360 
000006 
000010 
OOOOOA 
000002 
000001 


REFERENCES 

#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-73 
#5-73 
#5-73 
#5-73 


7-221 


7-175 


LPSWCN 

=   OOOOAO 

#5-73 

5-73 

LPSUDV 

=   000C20 

#5-73 

5-73 

LPSWLD 

=   000360 

#5-73 

LPSWTR 

=  000200 

#5-73 

5-73 

LPSWUN 

=  000100 

#5-73 

5-73 

L$Ai)J 

000110 

#5-73 

*7-251 

'7-270 

9-367 

L$BUF 

000060 

#5-73 

7-283 

LSCHN 

00005A 

#5-73 

7-228 

9-373 

12-517 

LSCOU 

000114 

#5-73 

•7-250 

'7-265 

»7-266 

LSCTB 

000053 

#5-^3 

L$CTL 

000002 

#5-73 

LSDDM 

000000 

#5-73 

lsflg 

OOOO'A 

#5-73 

7-161 

7-245 

♦7-277 

LSFLX 

000070 

#5-73 

LSLEN 

00012A 

#5-73 

l$lt^ 

000070 

#5-73 

LSMSG 

000056 

#5-73 

LSMTYP 

000067 

#5-73 

L$NA*1 

OCOOOO 

#5-73 

•9-368 

13-567 
9-365 


*7-282 


*9-369 


CIREST 
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SETTAO  -   SET    TRIBUTARY    STATION  ADDRESS 
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137 
138 
139 

UO  000170 
14^  000174 
•^?   000206 
Uj  000210 

144  000216 

145  000222 
K6 

147  00022'- 

148  000226 

.ENDC 

;  NDF  R$$PR0 

010066 

000403 
116461 

000004 
000103 

000034 

20$: 

30  J: 
40$: 

MOV 

RE'C 

3R 

Move 

RESMAP 
RETURN 

R0,2tRSIAS(SP) 

RO 

40» 

LS  ,D(R4),S.SlPN(R1) 

000261 

70$: 
80$: 

SEC 
RETURN 

ELSE,  RETURN  ERROR  CODE  IN  RO 

RETURN  CARRY  TO  USER 

AND  RETURN 

SET  THE  NEW  TRIB  ADDRESS 

RESTORE  PREVIOUS  MAPPING 

BACK  TO  USER  STAiE 
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CIRMAP 

CREATED  B¥ 

MACRO  ON  2 

SYMBOL 

:ros:  reference 

SVMBOL 

VALUE 

REFERENCES 

S.XMB 

000030 

#5-66 

S.XMP 

00002A 

#5-66 

TF.FfE 

r-  OOOOO'. 

#5-66 

TF.ROF 

=  000001 

#5-66 

TF.RTO 

=  000002 

#5-66 

TF.TAE 

=  00001 u 

#5-66 

TF.TOF 

=  000004 

#5-66 

TF.TTO 

--  000010 

#5-66 

TF.URE 

■^  000001 

#5-66 

TF.USA 

=  00000' 

#5-66 

TR.ALF 

000102 

#5-66 

TR.DEV 

000100 

#5-66 

TR.LEN 

^  000210 

#5-66 

TR.MST 

00007A 

#5-66 

TR.PRE 

oor.76 

#5-66 

TR.TLZ 

000072 

#5-66 

TX.NXM 

000002 

#5-66 

IX.OVR 

=  000001 

#5-66 

TX.TMO 

=  000004 

#5-66 

T.ACT 

000031 

#5-66 

T.CHA 

000032 

#5-66 

T.CSR 

000022 

#5-66 

T.ITM 

000001 

#5-66 

T.OUE 

000024 

#5-66 

T.QU2 

=  000026 

#5-66 

T.RTY 

000030 

#5-66 

T.TMR 

000000 

#5-66 

T.TRPN 

000004 

*6-135 

X$$MCB 

r  ****** 

5-63 

ZF. COU 

=  001000 

#5-63 

ZF.DDV 

=  OlOOOI 

#5-63 

ZF.DIA 

=  004000 

#5-63 

ZF.Dir 

=  000002 

#5-63 

ZF.D.P 

=  ^00000 

#5-63 

ZF.IN. 

^  040000 

#5-63 

ZF.KMX 

=  000020 

#5-63 

ZF.LLC 

=  000004 

#5-63 

/F.LMC 

=  000100 

#5-63 

ZF.MAN 

=  020000 

#5-63 

ZF.MFL 

=  000010 

#5-63 

ZF.MTM 

=  000400 

#5-63 

ZF.MUX 

=  000040 

#5-63 

ZF.PSE 

=  002000 

#5-63 

ZF.SLI 

=  010000 

#5-63 

ZF.TiM 

=  000200 

#5-63 

ZF.X3P 

=  000000 

#5-63 

ZS.ASN 

=  100000 

#5-63 

ZS.B5V 

=  140000 

#5-63 

Z.AVL 

000014 

#5-65 

Z.DAT 

OOOOlo 

#5-63 

Z.DSP 

000000 

#5-63 

Z.FLG 

000010 

#5-63 

ON  29-JUN-85  AT  12:20 
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CREF   04.00 


5-66 


5-63 


5-63 
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Symbol  t^bie 
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AStCHK.= 

A$$CPS= 

AS$PRI= 

A$tTRP= 

CHKCIR= 

CIZEIN 

C$$CKP= 

C$SORE= 

C$$RSH= 

D$$BUG= 

D$$IS<= 

DS$Ln  = 

D$$YNC= 

t"$$XPR= 

F$$LVL= 

G$J'PP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

<$$TPS= 

LCSEXT 

LCSINT 

lcsn:l= 

LC$OWN= 
LD$LP  = 
LF$(>«LT  = 
LF$f-iA= 
LF$SEG= 
LF$SKP= 
LF$VR2= 
LF$ZER= 
LPSMPTn 
LP$MUX= 
LP$NXC= 
LP$TRB= 
LPSir'Ti 
LP$WCN= 
LP$WDV= 
LP$WLD= 
LP$WTR= 
LPSWUN= 
LS$ACT= 
LS$EBT= 
LS$BL<= 
LS$BSA= 
LS$BSD= 
LS$BSI= 
LS$CHN= 
LS$CMB= 
LS$COS= 
LS$CUS= 


000000 
000000 
000000 
000000 
*»«»♦«  Gx 

OOOOOORG 

000000 

000^00 

177564 

1775U 

000000 

000001 

000000 

000000 

000000 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

000001 

000200 

000400 

000000 

040000 

000001 

100000 

000004 

000010 

000002 

000010 

000004 

100000 

000002 

G0OOC1 

000040 

000020 

000360 

000200 

000100 

000040 

010000 

001  coo 

000001 
000002 
000004 
000001 
000002 
000004 
000004 


LS$DDT= 

LS$DEA= 

LS$DLM= 

LS$DLT= 

LSSr^^E^ 

LS$HBT= 

LS$HTM= 

LS$INA= 

LS$1ND= 

LS$INI= 

LStLCT= 

LS$LMB= 

LS$L00= 

LS$MOT= 

LS$MRT= 

LS$MWN= 

LS$MXB= 

LS$MXR= 

LS$MXW= 

LSSNMTr 

LS$NOR= 

LS$NTI= 

LS$NTL= 

LS$NUM= 

LS$OUN= 

LS$PLT= 

LS$PRO= 

LS$PVC= 

LS$RET= 

LS$SER= 

LS$STA= 

LS$SVC= 

LS$TAD= 

LSSTH1= 

LS$TH2= 

LS$^H3= 

LS$XMT= 

LSACT 

LSBBT 

L$8LK 

L$BSA 

L$BSD 

L$BSI 

LSBUF 

LSCHN 

LSCMB 

L$COS 

L$CTB 

LSCTL 

L$CUS 

L$DDM 

LSDDT 

L$DEA 

LSDLT 

LSDTE 

L$DTEL 

LSDTEP 


001000 
000100 
001004 
002000 
000010 
000400 
010000 
000010 
000020 
000040 
U20000 
000002 
040000 
020000 
000020 
000040 
001000 
000020 
000040 
020000 
100000 
000200 
000001 
000100 
0000-'5 
004000 
010000 
020053 
000200 
1 00000 
000002 
000362 
000020 
000100 
000200 
000400 
040000 
000104 
000114 
000262 
000122 
000123 
000124 
000060 
000054 
C00234 
000101 
000053 
000002 
000260 
000000 
000106 
000105 
000110 
000240 
000236 
000250 


LSFLG 

L$FLX 

L$FL1 

L$FL2 

LSHBT 

L$HIM 

LSINA 

L$IND 

LSINI 

L$LCT 

LSLEN 

L$LMB 

L$LTM 

LSMRT 

L$MSG 

LSMTVP 

L$MWN 

LIMXB 

LSMXR 

L$mu 

L$NAM 

L$NLEN= 

L$NMT 

LSNTI 

L$NTL 

L$NUM 

LSNUML 

L$NXT 

LSOPT 

L$OWN 

L$PAR 

L$PI)V 

L$PF6 

LSPLT 

LSPRO 

LSPV: 

L$RET 

L$SCN 

L$SCR 

LSSER 

LS.SLEN 

LIcLI 

L$SNM 

L$STA 

L$TAD 

L$TH1 

L$TH2 

L$TH3 

LSTNM 

L$TPT 

L$TRB 

LiTVP 

LSUNT 

L$XCH 

L$XMT 

L$$ASG= 

L$$DRV= 


000064 
000076 
000066 
000070 
000254 
000226 
000125 
000126 
000127 
000224 
000264 
000234 
000230 
000253 
000056 
000075 
000252 
000133 
000253 
000252 
000000 
000020 
000116 
000256 
000134 
000240 
000236 
000044 
000062 
000102 
000072 
000055 
000041 
000112 
000075 
000004 
000256 
000020 
000166 
000230 
000074 
000042 
000046 
000100 
000103 
000130 
000131 
000132 
000052 
000050 
000040 
000063 
000003 
00C232 
000120 
OOCOOO 
000000 


L$$P11= 

L$S11R= 

MBSDIS 

MBSCNA 

MBSFUL 

HBIMIX 

MBSONE 

HBSRXO 

HBSTXO 

MBSZER 

MCSBAB 

MCSBID 

MCSBHC 

MCSBSC 

MCtCAC 

MCSCAP 

MCSCCL 

MCSCDC 

MCSCDP 

MCSCIF 

MCSCLD 

Mcsrou 

MC$CTL 
MtSCTR 

Mcscrs 

MCSDOV 

MCSLBR 

MCSLBS 

MCSLDI 

MCSLDO 

MCSLDR 

fiCSLDS 

|VC$LLB 

MCSLL: 

MCSLLR 

MCSLOO 

MCSLRB 

MCSLRP 

MCSLRR 

MCSLSJ 

MCIL3T 

MCSLUr' 

MCtMAP 

MCSMBL 

MCSMBX 

MCSMBY 

MCSMPX 

MCSMAP 

MCSfJBR 

MCSNBS 

MCSMCR 

MCSNCS 

MCSNML 

MCSNMR 

MCSNMS 

MCSNNO 

MCINNU 


000001 
000000 
000001 
000000 
000002 
0C0C02 
000001 
000001 
000000 
OOCOOO 
006073 
001765 
001767 
001766 
001442 
001440 
001445 
002045 
001441 
001465 
001464 
100000 
001454 
001452 
001453 
002050 
001750 
001751 
001774 
C01775 
001762 
001763 
002021 
002115 
002007 
000001 
002020 
002114 
002006 
002032 
002033 
006072 
010000 
001764 
004420 
001752 
004406 
001604 
001130 
001131 
001154 
001155 
001274 
001142 
001143 
Oni606 
001 605 


MCSNOP 

MCSNOR 

MCSNPF 

MCSNPR 

MCSNR'" 

MCSNRl 

MCSNVR 

MC$P08 

MCSPll 

MC$RF. 

MCSSBU 

/>"C$SFL 

MCSSYC 

MCSSYL 

MCSSYR 

MCSSYS 

Mf$SYZ 

M,.$TBR 

MCSTBS 

MCSTDR 

MCSV'M 

MCSTYP 

MCSUOU 

MC$UFD 

MCSUMR 

MCSUMS 

MCSVAX 

MCSWID 

MCSwIH 

MCSWIL 

MC$W08 

MC$W16 

MC$W32 

MCSXBR 

MCSXBS 

MCSXCJ 

MCSXCR 

MCSXCS 

MCSXDR 

MCSXDS 

MCSXFR 

MCSXFS 

MCSXLJ 

MCSXLR 

MC5.XMA 

MCSXMC 

MCSXMS 

MCSXNR 

MCSXRC 

MCSXRR 

MCSXRS 

MC$020 

MDSCI 

MDSCNA 

MDiCOU 

MD$DA 

MDSDL 


001607 
000000 
001616 
001630 
001200 
001166 
001642 
000000 
000001 
002046 
002051 
002044 
000012 
000036 
000050 
000024 
UOOOOO 
001140 
001141 
002053 
000000 
007777 
002052 
002047 
001132 
001133 
000003 
060000 
040000 
020000 
020000 
040000 
060000 
001750 
001751 
000322 
002260 
002261 
001762 
001763 
002272 
002273 
000323 
002350 
000310 
002305 
002304 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 

:oooio 

000004 
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000002 
000003 
00000^ 
000005 
000006 

OOOOOC 
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B$7: 

.BLKB   1 

B$10: 

.BLK8   1 

B$11: 

.BLKB   1 

B$12: 

.BLKB   1 

B$7S1C: 

.BLKB   1 

.EVEN 

.PSECT 

BASE  TABLE  +  7 

BASE  TABLE  <    10 

BASE  TABLE  +  11 

BASE  TABLE  +  12 

SUM  OF  BASE  TABLE  7  AND  10 
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•»F1I.E"ID««DCPC0U 


DDDDODDD 

CCCl 

CCCC 

PPPHPPPP 

CCCCCCCC 

000000 

uu    uu 

DDDDDDOD 

CCCC 

CCCC 

pppppppp 

CCCCCCCC 

000000 

uu    uu 

DD      OD 

CC 

pp    pp 

CC 

00 

00 

uu    uu 

OD      DD 

CC 

pp    pp 

CC 

00 

00 

uu    uu 

00      DO 

CC 

pp    pp 

CC 

uo 

00 

uu    uu 

00      DD 

CC 

pp    pp 

lC 

uo 

00 

uu    uu 

DO      DD 

CC 

pppppppp 

CC 

00 

00 

uu    uu 

OD      DD 

CC 

pppppppp 

:  C 

00 

00 

uu    uu 

00      DO 

CC 

pp 

CC 

ou 

00 

uu    uu 

DD      DD 

CC 

pp 

CC 

00 

00 

uu    uu 

t~j      DD 

CC 

pp 

CC 

uo 

00 

uu    uu 

DD      DD 

CC 

pp 

CC 

00 

00 

uu    uu 

j.TDDDDD 

CCCCCCCC 

pp 

CCCCCCCC 

000000 

uuuuuuuuuu 

'"^DDDDDD 

CCCCCCCC 

pp 

CCCCCCCC 

000000 

uuuuuuuuuu 

LL 

SSSSSSS5 

TTTTTTTTTT 

LL 

SSSSS5SS 

TTTTTTTTTI 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

ssssss 

LL 

ssssss 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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DCPCOU     CREATED  BY  MACRO  ON  29-,IUN-85  AT  12:21 
rMBCi.  CROSS  REFERENCE 


SYMBOL  VALUE 


_ITO 

em 

BIT10 

mi 

IT12 
B1T13 

BiTU 

B1T15 

BK2 
Bn3 

b:k 

BIT5 

BIT6 

B!T7 

B1T8 

BIT9 

B$10 

B$11 

B$12 

B$5 

BS6 

B$^ 

B$7510 

DCPCIR 

DCPCIO 

DCPCn 

DCPLIN 

DCPLNO 

DCPLN1 

FMTCOU 

FNDDCP 


=  000001 
=  000002 
=  002000 
=  GOAOOO 
=  010000 
=  020000 

=  OAOOOO 
=  100000 

=  000004 

=  000010 

=  000020 

--  000040 

=  000100 

=  000200 

=  000400 

=  001000 
000003 
OOOOOA 
000005 
000000 
000001 
000002 
000006 
000514  R6 
000000  R 
000012  R 
000312  RG 
000004  R 
000214  R 

GX 
GX 


REFERENCES 

#7-61 
#7-61 
#7-61 
#7-61 
#7-61 
#7-61 

9-108 
#7-61 
#7-61 

9-108 
#7-61 
#7-61 
#7-61 
#7-61 
#7-61 
#7-61 
#7-61 
#7-61 
#6-61 
#6-61 
#6-61 
#6-61 
#6-61 
#6-61 
#6-61 
#10-159 
#9-87 
#9-94 
#10-156 
#9-88 
#9-124 

10-201 

10-164 


9-99 
9-100 


9-98 
9-87 
9-109 

9-87 
9-109 
9-101 
9-128 


10-169 
10-170 

10-166 
10-167 
10-209 
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9-104 
9-105 


9-103 

9-83 

9-110 

9-88 
9-110 
9-106 
9-134 


9-111 
9-112 


9-110 
9-94 

9-114 

9-94 

9-114 
9-K7 


9-115 
9-116 


9-114 

9-95 

9-118 

9-95 

9-118 

9-133 


9-120 
9-121 


9-119 

9-96 
9-119 

9-96 
9-119 


9-125 
9-126 


9-124 

9-97 

9-124 

9-97 
9-124 


9-131 
9-152 


9-130 

9-98 

9-130 

9-98 
9-150 


9-105 
9-105 


»10-177 
•10-178 


10-180 
10-181 


*10-211 
*10-210 


KISAR6 

=    »•»♦•»*      GX 

10-165 

•10-212 

LE.NRH 

=   000200 

9-134 

LE.NRO 

=   000001 

9-125 

LE.NSH 

=  000002 

9-126 

lE.nso 

=  000920 

9-131 

lE.RCO 

=  000040 

9-152 

LE.SAE 

=   000004 

9-127 

LE.STT 

=  000010 

9-128 

LE.XTU 

--   OOCIOO 

9-133 

LFSEND 

=  000020 

#7-61 

LFSMLT 

=  040C00 

#7-61 

LFSREA 

=  000001 

#7-61 

LFSSEG 

-   100000 

#7-61 

LF$S!G 

=  000040 

#7-61 

LFSSKP 

=  000004 

#7-61 

LF$\/R2 

=  00001 G 

#7-61 

10-174 

LFSZER 

:■•  000002 

#7-61 

LPSMPT 

-  000010 

#7-61 

10-190 

LPSMUX 

=  000004 

#7-61 

10-205 
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DDDDDDDD 

cccccccc 

cccccccc 

000000 

uu    uu 

DDDDDDDD 

cccccccc 

cccccccc 

000000 

uu    uu 

DD      DD 

c 

00 

00 

uu    uu 

DO      DD 

c 

00 

00 

uu    uu 

DD      DD 

c 

00 

00 

uu    uu 

DD      DD 

•c 

ou 

00 

uu    uu 

DD      DD 

"C 

ou 

00 

uu    uu 

DD      DD 

■c 

00 

00 

uu    uu 

DD      DD 

:c 

00 

00 

uu    uu 

DD      DD 

■c 

00 

00 

uu    uu 

DD      DD 

■c 

ou 

00 

uu    uu 

DD      DD 

"C 

uu 

00 

uu    uu 

DDDDDDDD 

LLLLLLLLLL 

cccccccc 

cccccccc 

000000 

uuuuuuuuuu 

DDDDDDDD 

LLLLL 

cccccccc 

cccccccc 

000000 

uuuuuuuuuu 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

_L 

ss 

a 

ss 

LL 

ssssss 

LL 

ssssss 

-L 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

DLCCOU  - 
GETXPT  - 

309 

31C 

311 

312 

313 

31  A 

315 

316 

317 

318 

319 

320 

321 

322 

323 

32A 

325 

326 

327 

328 

329 

330 

331 

332 

333 

33A 

335 

336 

337 

338 

339 

3A0 

3'il 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 
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get  transport  CIRCUIT  counters 

.SBTTL  GETXPT  -  get  transport  CIRCUIT  counters 

♦•-GETXPT  -  get  transport  CIRCUIT  counters 

Inputs:      R3  =  next  free  byte  in  buffer 


Output: 


Action? : 


000732 

000732 

000734  005002 

000736  032764  000002  000064 

000744  001403 

000746 

000752  000435 

000754  016400  000060 

000760  014001 

000762  060100 

000764  010301 

000766  016605  000004G 

000772  022525 

000774  010503 

000776  16O'^01 

001000  160100 
001002 

001006  112520 
001010 

001014 

001020 

001024  020003 

001026  101004 

001030  012766  177773  000004G 

001036  000403 

001040  112023 
001042 

001046 
001050 

OOO'^Ol 


GETXPT: 


5$: 


10$: 


20$: 
30$: 


If  error,  saved  RO  =  error  code 

else 

R5  =  next  free  byte  in  buffer 

Transport  counters  are  inserted  in  response 
message  after  seconds  since  zeroed,  before 
DLC  counters. 


SAVRG 
CLR 
BIT 
BEQ 

CALL 
BR 

MOV 
MOV 
ADD 

MOV 
MOV 
CMP 
MOV 
SUB 

SUB 
SAVRG 

M0V8 
SOB 

CALL 

RESRG 

CMP 

BHI 

MOV 

BR 

MOVB 
SOB 

RESRG 
RETURN 

.END 


<R5> 

R2 

#Lf$ZER,L$FLG(R4) 

5$ 

XPTCOU 
30$ 

L$BUf (R4),R0 

-(R0),R1 

RI.RO 

R3,R1 

4+R$R3(SP),R5 
(R5)  +  ,(R5)<- 
R5,R3 
R5,R1 

R'  RO 
<R0,R1> 

(R5)t  (R0)+ 
R1,10$ 

XPTCOU 

<R1,R0> 

R0,R3 

20$ 

#ME.MPR,4tR$R0{SP) 

30$ 

(R0)  +  ,(R3)<- 
R1,20$ 

<R5> 


save  CCB  address 

read/zero  tine/station  counters 

zeroing  counters  ? 

if  EQ,  no 

else  just  zero  them 
thats  all 

point  to  message  buffer 
length  of  message  buffer 
point  past  buffer  end 

point  to  end  of  response 
point  to  response  start 
skip  seconds  since  zeroed 
insert  transport  counters  here 
calculate  response  length 

point  to  response  save  area 

push  save  area  address  and  length 

save  DLC  counters 


get  transpor':  counters 

point  to  save  area 

did  we  overwrite  saved  data  ? 

if  HI,  ok,  else 

the  dreaded  Management  Program  Error 


append  saved  DLC  counters 

after  transport  circuit  counters 

Restore  CCB  address 


DLCCOU 
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1 

2 

3 

I, 

5 

6 

7 

8 

9 
10 
11 
-.2 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
21, 
25 
26 
27 
28 
29 
30 
31 
3? 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 


.TITLE  DLMCOU  -  READ/AND  OR  ZERO  DLM  COUNTERS 

.IDENT  /V05.00/ 

.ENABL  LC 

.NLIST  CND 


COPYRIGHT  (C)  1982,  198'^,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD, 


r.ASS. 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  AClURDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  IHE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  0THERW:5:  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  GuFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


OF   ITS 


MODULE  DESCRIPTION: 
NETWORK  MANAGEMENT 


READ  AND  ZERO  DlM  COUNTERS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Symbol  table 


B  U 

12:2 
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QaSRCO: 

QS$RSC= 

QS$RSR= 

QStRST= 

QS1RUC= 

QS$UAC= 

QS$UCA= 

QSALNK 

Q$BUF2 

QSCCB 

OSCCBQ 

QtCNTL 

QSFLG 

QSLENG 

Q$LN< 

QSPORT 

QSSBST 


ABS. 


000012 
000004 
000002 
000010 
000006 
OOOOU 
000000 
OOOOOA 
000020 
000012 
OOOOH 
000007 
000006 
000040 
000000 
000003 
000010 


CISSTE 

Q$STN 

QSTIWZ 

QSXABQ 

QSXPLI 

QSXWTQ 

Q$10PT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SFSANH 

SFSDNM 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 


000011 
000002 
000036 
000024 
000034 
000030 
000010 
000000 
000001 
000000 
000000 
000001 
000002 
000200 
000100 
000004 
000040 


SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

S$$WRG= 

S$$rS2= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

T$$KMG= 

T$$MIN= 

V$$CTR= 

XPTC0U= 

X$$DBT= 


000020 
000010 
000001 
000002 
000040 
000000 
007600 
000001 
000000 
000004 
000002 
000003 
000000 
000000 
001000 

****** 

000000 


GX 


ZF.C0u= 
ZF.DDM= 
ZF.D1A= 
ZF.DLC= 
Zf .DVP= 
ZF.INI= 
ZF.KMX= 
ZF.LLC= 
ZF.LMC= 
ZF.MAN= 
ZF.MFL^ 
7F.MTM= 
ZF.MUX= 
ZF.PSE= 
ZF.SLI= 
ZF.TIM= 
ZF.X3P= 


001000 
000001 
004000 
000002 
100000 
040000 
000020 
000004 
000100 
020000 
000010 
000400 
000040 
002000 
010000 
000200 
000000 


ZS.ASN= 

ZS.BSY= 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN  = 

2. UN 

Z.MAP 

Z.NAM 

Z.PCB 

2.SCH 

$$BM  = 

$$REG  = 

$$WID  = 

$$$SYS= 

$$$SVX= 


100000 
140000 
000014 
000016 
000000 
000010 
000016 
000006 
000020 
000004 
000012 
000007 
000000 
000001 
040000 
004374 
000000 


177776 
000222 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,0VR; 
(RW,I,LCL,REL,CON) 


»♦*   Assembler   statistics 


Work      file      reads:  228 

Work      tile   writes:  164 

S^'ze  of   work    file:  33380  Words      (    131   Pages) 

Size  cf   core  pool:  17608  Words      (   -.7  Pages) 

Operating      system:  RSX-HM/PLUS 


SYfDLMCOu!v2![?3^?n4]DLMCOU/CR/-SP=SY:[l  JJRSXMCM.SMl/ML,[130,110]NETLIB/ML,[130,10]RSXMCM/PA:1,[135,10]DLMCOU 
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76 


000001 
000002 
000004 
000010 
000020 
OOOWO 
000100 
000200 
001000 
100000 

000400 
000002 
000020 
000040 
000200 
010000 

020000 

020055 
000362 
001004 


Flags  word  bit  definitions  for  X.25  circuits  and  lines  (L$FLX) 


Circuits; 

LSSCHN 

= 

1 

Set  PVC  channel 

LSSCMB 

= 

2 

Set  maximum  data 

LSSCUS 

= 

4 

Set  circuit  usage 

LSSDTE 

r 

10 

Set  DTE 

LSSMXR 

= 

20 

Set  maximum  recalls 

LSSMXW 

- 

40 

Set  maximum  window 

LSSNUM 

= 

100 

Set  DLM  number 

LSSRET 

~ 

200 

Set  recall  timer 

LS$8LK 

= 

1000 

Set  blocking 

LPSNXC 

= 

100000 

Circuit  is  a  new  X.25  circuit 

Lines: 

LSSHBT 

= 

400 

Set  holdback  timer 

LSSLMB 

- 

LSSCMB 

Set  max  block 

LSSMRT 

= 

LSSMXR 

Set  max  retransmits 

LSSMWN 

= 

LSSMXW 

Set  max  window 

LSSNTI 

= 

LSSRET 

Set  retransmit  timer 

LSSPRO 

= 

10000 

Set  line  protocol 

Common: 

LSSLCT 

= 

20000 

;  Set  counter  timer 

Groupings: 

LSSPVC 

= 

LSSCHN 

LSSCMB 

LSSDTEILSSMXWILSSLCT 

LSSSVC 

= 

LSSCMB 

LSSMXR 

LSSMXWILSSNUMILSSRET 

LSSDLM 

= 

LSS8LK 

LSSCUS 
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Table  ot  contents 

MACRO  CALLS  AND  LOCAL  DATA 
CONTEXT  AREA  OFFSET  DEFINITIONS 
ERROR  MESSAGE  STRINGS 
DLXQIO  -  ISSUE  I/O  REQUEST  TO  NX: 
DLXLUN  -  ASSIGN  A  LUN  TO  NX: 


(S- 

ss 

7- 

/() 

«- 

/K 

fl- 

Vl 

o- 

186 
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Table  ot  contents 

MACRO  CALLS  AND  LOCAL  DATA 

BIT  DEFINITIONS 

DISPATCH  TABLE  FOR  READ  PARAMETERS  OPTIONS 

CIREOP  -  CIRCUIT  READ  INFORMATION  OPERATE 

CIZEOP  -  CIRCUIT  ZERO  COUNTERS  OPERATE 

GETCIR  -  GET  THE  NEXT  CIRCUIT-ID 


s- 

SA 

■)- 

ft! 

f,- 

(Sh 

/- 

n 

/- 

80 

8- 

16^- 
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SYMBOL 

VALUE 

REFERENCES 

LSSLEN 

000066 

#5-61 

L$SLT 

000042 

#5-61 

8-200 

LSSNM 

000046 

#5-61 

LSSYL 

000122 

#5-61 

LSTNM 

000052 

#5-61 

L$TPT 

000050 

#5-61 

8-197 

LSTRB 

000040 

#5-61 

LSTSZ 

00007C 

#5-61 

LSTYP 

00006! 

#5-61 

8-194 

L$UNT 

000003 

#5-61 

L.COST 

000015 

#5-64 

L.CTL 

0000^2 

#5-64 

L.CVA 

177776 

#5-64 

L.DDM 

000002 

#5-64 

L.DDS 

000004 

#5-64 

L.DLC 

G00003 

#5-64 

L.DLM 

000006 

#5-64 

L.DLS 

000010 

#5-64 

L.FLG 

000000 

#5-64 

8-201 

L.KRBA 

000016 

#5-64 

L.LEN 

=  000022 

#5-64 

L.MPF 

000022 

#5-64 

L.NMST 

000020 

#5-64 

L.NSTA 

000014 

#5-64 

L.OWNR 

000021 

#5-64 

L.UNT 

000013 

#5-64 

ME. DON 

177600 

7-108 

ME. FUN 

Mim 

7-153 

MFSACT 

■\iink 

8-194 

MOSCHA 

000040 

6-72 

MOSCOU 

000060 

6-74 

MOSSTA 

000020 

6-75 

MOSSUM 

000000 

6-76 

MS. sue 

000001 

7-121 

NXTCIR 

:r     *♦**»»        GX 

8-188 

R$$11D 

r     k*** t * 

5-63 

R$$11M 

=   000000 

5-63 

R$$11S 

-    ****** 

5-63 

6-71 

SF    ACT 

=  000200 

#5-64 

8-210 

SF.ENA 

=    000100 

#5-64 

SF.LPB 

=  000004 

#5-64 

SF.MFL 

=  000040 

#5-64 

SF.PAC 

=  000020 

#5-64 

SF.REA 

=  000010 

#5-64 

SF.SER 

=  000001 

#5-6'. 

SF.5VC 

^  000002 

#5-6'. 

SF.UNl 

=:     000040 

#5-64 

S    COST 

000001 

*5-64 

S.FLG 

000000 

#5-64 

8-210 

S.LEN 

000004 

#5-64 

5 .  NMS  T 

000002 

#5-64 

S.OwN'- 

00C0C3 

#i-64 

8-209 


8-203 


8-205 


8-196 


CIREOP 
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PUTNOD  -  Put  node  id  and  block  size 


387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

39- 

398 

399 

400 

A01 

402 

403 

404  001146 

405 

406 

407 

408  001146 

409  001152 

410  001160 
411 

412 
413 
414 

415  001162 

416  001164 

417  001170 

418  001174 

419  001200 

420  001204 

421  001206 

422  001210 
423 

424  001214 

425  001220 

426  001222 

427  001224 

428  001226 

429  001232 

430  001234 

431  001240 
a32  001242 

433  001250 

434  U01254 

435  001256 
43;  001260 
i37  001262 

438  001264 

439  001266 
44U  001272 
441 

442 
443 


.SB^Tl  PUTNOD  -  Put  node  id  and  block  size 
h 
**-Putnod  -  Put  node  id  and  block  size 

Inputs:      Rl  =  nod  ■  address 

TEMP  =  transport  block  size 

Output:      R3  is  updated.  The  node  id,  adjusted  for 

the  version  of  NICE  spoken  by  the  connected  NCP, 

and  the  transport  block  size  are   put  in  the  response. 

Registers:    RO  is  trashed. 


016700 
032760 
001415 


010146 
042716 
017700 
016000 
042700 
020026 
001002 
042701 

004567 
001440 
000301 
010400 
062700 
005010 

103403 
112763 
112723 
110123 
000301 
110123 
("15^10 
001404 
112723 


OOOOOOG 
OOOOOOC  OOOOOOG 


001777 
OOOOOOG 
000014 
001777 


176000 
OOOOOOG 

000072 


000302     1777^7 
000002 


OOOiCO 


.IF  DF  R$$11S 
.PSECT  NIXCOD 
.ENDC 

PUTNOD: 

Phase  4  command  node: 

CURCTX.RO 


force  code  to  APR6 


return  16  bit  node  address 


MOV 
BIT 
BEQ 


,.ul^^  i/^,.^^y  ,•  push  cuTrent  context  address 

#CF$VR21CF$VR3,C$FLAG(R0)  ;  connected  to  phase  3  NCP  ? 
10$  ;  if  EQ,  no 


Phase  3  command  node:  mask  area  if  target  node  in  executor  area, 
otherwise  return  16  bit  node  address. 


MOV  R1,-(SP) 

BIC  #1777, (SP) 

MOV  aDECPT,RO 

MOV  D$LNUM(RO),RO 

BIC  #1777, RO 

CMP  RO,(SP)+ 

BNE  10$ 

BIC  #*C1777,R1 

10$:    JSR  R5,SETPAR 

.WORD  MPSADJ 

.WORD  mt$cod:mt$mulii 

MOV  R4,R0 

ADD  #L$SCR,R0 

CLR  (RO) 

CALL  MAPADD 

BCS  20$ 

M0V8  #MT$CODIMT$MuLI2,-1(R3) 

20$:    M0V8  #2,(R3)+ 

Move  Rl,(R3)t 

SWAB  Rl 

MOVB  R1,(R3)+ 

TST  (RO) 

BEQ  30$ 

MOVB  #MTiASC,(R3)+ 

CALI  S^TNAM 


)y  afl 
isolate  area 
point  to  DECnet  home  block    ;  RJK05 
get  exec  address  ;**-! 

area  only 

same  area  as  executor  ? 
br  if  no 
else  return  as  area  zero 

return  adjacent  node  address  parameter 

coded  multiple  field  (default  of  1) 
point  to  scratch  buffer 

initialize  buffer  to  unique  value  (0) 

map  the  address  into  a  name 

if  CS,  no  name  found 

else,  2  fields  to  return 

set  address  data  type  (2  bytes) 

set  Low  byte  of  address 

set  high  byte 

was  a  name  found  ? 

i '  EQ,  no  -  return 

else,  yes  -  set  name  datj  type 

set  name  irito  buffer 


Return  the  block  size  if  the  request  is  for  "SIATUS"  (not  "SUMMARY") 
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C  i, 

PAGE  3 

CREF   0^.00 


SYMBOL  VALUE 


REFERENCES 


LSNLEN 

L$NOD 

LSNXT 

LSOPT 

LtPAR 

LSPCV 

L$PFC 

LSPLB 

L$PRO 

L$PVC 

LSSCN 

L$SCR 

LSSLEN 

LSSLT 

L$SNM 

LSSYL 

L$TNM 

L$TPT 

LSTRB 

LSTSZ 

L$TYP 

i.$UNT 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

"lAPADD 

«1APCHN 

ilOSSUM 

MPSADJ 

MPSBLO 

MPSLOO 

MPSSTA 

MPSSUB 

MSSAOJ 

MSSA^O 

MStASE 

»15$ATR 

i«;::cLE 

MSSDUM 


=  000020 
000112 
OOOO'i.A 
000C62 
000120 
000055 
OOOOA  ■. 
000116 
000067 
OOOOOA 
000020 
000072 
000066 
0000A2 
000046 
000122 
O00C52 
000050 
000040 
000070 
000063 
000003 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 

-  000022 
000022 
000020 
000014 
000021 
000013 

-      **  +  ■»♦* 
=   ****** 

COOOOG 
001440 
001452 
000620 
000000 
000001 
000010 
OO0CG7 
000006 
000011 
U00003 

o^"lyo4 


GX 
GX 


#5-73 

5-73 

#5-73 

7-256 

#5-73 

#5-73 

10-444 

#5-73 

#5-73 

12-509 

#5-73 

#5-73 

#5-73 

#5-73 

#5-73 

#5-73 

7-227 

#5-73 

#5-73 

7-159 

#5-73 

#5-73 

#5-73 

#5-73 

7-160 

#5-73 

#5-73 

7-257 

#5-73 

#5-73 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-o7 

#5-67 

#5-67 

#5-67 

7-175 

#5-67 

#5-67 

#5-67 

#5-67 

7-179 

#5-67 

7-180 

#5-67 

#5-67 

10-430 

7-229 

10-444 

10-425 

10-447 

7-232 

7-173 

7-212 

13-579 

6-119 

6-119 

6-119 

6-:  19 

6-119 

7-177 

6--:o7 

6-115 

5-73 

7-278    *9-376 


13-555 


10-428 
7-218 

7-223 

7-279     *9-378 


7-221 


7-219 


6-123 
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Page  / 


150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
16^ 
164 
1{,5 
166 
167 
168 

169  000230 

170  000230 

171  000236 

172  000240 

173  000246 
174 

175  000250 

176  000254 

177  000260 

178  000264 

179  000266 

180  0002  72 

181  000304 

182  000306 

183  000314 

184  000320 
iS5 

186  000322 

187  000324 

188  100330 

189  000332 

190  000340 

191  000344 

192  0003^6 


.SBTTL  SETACT  -  SET  ACTIVE  POLLING  RATE 

*»-SETACT-SET  ACTIVE  POLLING  RATIO  FOR  A  TRIBUTARY 

THIS  ROUTINE  IS  CALLED  TO  CHANGE  THE  ACTIVE  POLLING  RATE 
FOR  A  TRIBUTARY. 

INPUTS: 

R4  =  ADDRESS  OF  CONTEXT  AREA  WITH: 

L$ACT(R4)  =  NEW  ACTIVE  POLLING  RATE 

OUTPUTS: 

IF  CC,  RATE  CHANGED, 
ElSE,  error  CODE  IN  RO 

REGISTERS: 

R4,  R5  ARE  PRESERVED 


022764 
001435 
132764 
001431 


103010 
0''0066 

000405 
116461 


103011 
022700 
00  IOCS 
012764 
012700 
000261 


SETACT: 


10$ 


177777     000050 
000010     000041 


00CC04 


000104     000010     30$: 
40$: 


50$: 
177767 

004420  000G72  60$: 
177752 

70$: 


CMP 
BEQ 
BITB 
BEQ 

SWSTKS 

SAVMAP 

CALL 

BCC 

MOV 

RETC 

BR 

M0V6 

RESMAP 

RETURN 

BCC 
CMP 
BNE 
MOV 
MOV 
^EC 
RETURN 


#-1,L$TPT(R4) 
60$ 

#LP$MPT,L$PFG(R4) 
60$ 

50$ 

FNDDCP 

30$ 

R0,2+ReiAS(SP) 

RO 

40$ 

L$ACT(R4),S.PLA(R1) 


80$ 

#ME.IID,RO 

70$ 

*MP$MAC,L$PAR(R4) 

*Mf .PNA.RO 


IS  THIS  A  PVC? 

BR  IF  YES  -  ERROR 

IS  THIS  A  MULTI-POINT  LINE  ? 

IF  EQ,  NO  -  ERROR 

ENTER  SYSTEM  STATE 

SAVE  OUR  CURRENT  MAPPING 

FIND  THE  DCP  LINE  TABLE 

IF  CC,  FOUND  IT 

RETURN  ERROR  CODE  IN  SAVED  RO 

RETURN  CARRY  TO  USER  STATE 

AND  RETURN 

SET  THE  NEW  POLLING  RATE 

RESTORE  PREVIOUS  MAPPING 

BACK  TO  USER  STATE 

IF  CC,  SUCCESS 

WAS  THE  LINE  NOT  A  DDCMP  LINE  ? 

IF  NE,  NO  -  RETURN  WITH  ERROR 

ELSE,  SET  PARAMETER  IN  ERROR 

SET  PARAMETER  NOT  APPLICABLE  ERROR 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

Z.LFN 

=  000016 

#5-63 

Z.LLN 

000006 

#5-63 

Z.MAP 

000020 

#5-63 

Z.NAM 

000004 

#5-63 

Z.PCB 

000012 

#5-63 

Z.SCH 

000007 

#5-63 

SHEADR 

;  «*»«•»  GX 

6-Ul 

7-180 


8-225 


CIRMAP 
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Syiibol  table 


MD$DLV 

MDSDMC 

MDSDMF 

MDSDMP 

^DSDMR 

MDSCiMV 

MDtDN 

MDSDP 

MDSDPV 

MDSDQ 

MOSDTE 

MDSDU 

MDtDUP 

HD$DV 

MDSDZ 

MDSFUL 

MDSHAL 

MDSHEL 

MDSKCP 

MDSKDP 

MD$<DZ 

MDSKMX 
MDSKMY 
MO$LEN 
MDSPCL 
MDSQNA 
MDSUMA 
MDSWIT 
MD.ABO 
MD.ACC 
MD.AGB 
MO. BOB 
MD.DIA 
MD.DOB 
MD.DUM 
MD.FAI 
MD.FNA 
MD.FOB 
MD.LOA 
MD.LSH 
MD.NOB 
MD.NON 
MD.PER 
MD.PES 
MD . ROB 
MD.RSH 
MD.50U 
MD.SLO 
MD.SNA 
MD.TLO 
MD .  iJMA 
MD.UNR 
MD . UOB 
MD.VOL 
MESALI 
MEtAL? 


000020 

OOOOK 

0000A6 

000022 

000050 

000042 

000016 

000000 

OOOC^A 

OOOC06 

000C24 

000002 

000012 

000026 

000030 

000000 

000001 

000002 

000013 

00003A 

000036 

000040 

000054 

C00052 

000050 

000011 

000005 

000001 

000002 

000017 

000010 

000016 

000011 

000007 

0000-'5 

000002 

000014 

000001 

000006 

000001 

000020 

000012 

177777 

OOOCOO 

000004 

000005 

000013 

000005 

000003 

000000 

OOOOO'^ 

000002 

000003 

000007 

000006 

000010 

000003 


MESARE 

MESCIR 

MESEXA 

MESEXE 

MESLIN 

MESLOG 

MESMOD 

MESNOD 

MESNON 

MESOBJ 

ME$0B2 

MESPRO 

MESSYS 

ME.BLO 

ME. CON 

HE.CST 

ME.DIS 

ME. DON 

ME.FfC 

ME.FIO 

ME. FOP 

ME. FOR 

ME. FUN 

ME.GRO 

ME.HAR 

ME.IID 

ME.LCO 

ME.LPR 

ME.MPR 

ME.MVE 

ME. OPE 

ME.PLO 

ME.PMI 

ME.PNA 

ME. PR I 

ME.PTY 

ME.PVA 

ME. RES 

ME.ROO 

ME.SIZ 

ME. SYS 

ME.UCO 

MFSACT 

MFSADD 

MFSADJ 

MFSALL 

MFSBYE 

MFtCHA 

MFSDUM 

MFSEVT 

M-^SFUP 

MFSKKO 

MFSlOA 

MFSLOO 

MFSRcA 

MFSSIG 

MFSSPF 


000005 

000003 

000000 

000200 

000001 

000002 

000004 

000000 

177777 

000007 

0000D4 

000005 

000006 

177744 

177753 

177765 

177755 

177600 

177762 

177756 

177763 

177776 

177777 

177745 

177750 

177767 

177766 

177757 

177773 

177771 

177747 

177751 

177743 

177752 

177775 

\71712 

M77bQ 

177761 

177754 

■\7777i, 

\777kb 

}77770 

U777b 

000000 

177774 

177775 

C00300 

000023 

000020 

000001 

000264 

177777 

000017 

177775 

000024 

177773 

000302 


MFSSYS 

MFITES 

MFSTRA 

MFSTRI 

MFSZER 

ML  SAL  l. 

MLSCLS 

MLSCON 

MLSEXT 

MLSFIL 

MLSFIR 

MLSINT 

MLSKNO 

MLSMON 

MLSSYS 

MLSTOP 

MNSUNL 

MOSACC 

MOSADD 

MOSALA 

MOSALI 

MOSCHA 

MOSCIR 

MOSCLE 

MOSCOU 

MOSDAC 

MOSDEF 

MOSDPR 

MOSENT 

MOSEVE 

HOSINF 

MOSJNS 

MOSLIN 

MOSLOG 

MOSMIR 

MOSNAM 

MOSNIC 

MOSNOD 

MOSOfF 

MOSON 

MOSOPT 

MOSPER 

MOSPRO 

HOSPRS 

MOSREA 

MOSSET 

MOSSTA 

MOSSUM 

MOSTSK 

MOSVOL 

MOSZER 

MPSACB 

MPSACC 

MPSACT 

MPIADD 

MPSADJ 

MPSADP 


000026 
000022 
000301 
000021 
000025 
100000 
000000 
000001 
000001 
000002 
000000 
000000 
KOOOO 
000003 
000002 
000001 
000377 
000200 
000002 
000004 
000000 
000040 
000003 
000100 
000060 
000000 
000000 

ocoooo 

000017 
000100 
000160 
000002 
000001 
000001 
000031 
00000' 
000023 
000000 
000001 
000000 
000001 
000200 
000002 
000001 
000200 
000000 
000020 
000000 
000000 

oooooc 

000000 
00D012 
000514 
004526 
000766 
001'.40 
006325 


C  7 
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MPSADS  004406 

MPSDLG 

004521 

MPSALB  000036 

MP$DLI= 

001466 

HP$AMC  001640 

MPSDLT 

002200 

MPSAMH  001641 

HPSDRO 

001441 

MPSANB  00 '(420 

MPSDST 

000454 

MPSASB  000024 

MPSDTE 

002140 

MPSASC  004432 

MP$DTY= 

001452 

MPSAUS  000512 

MPSDUA 

000207 

MPSBBT  0C2165 

MPSDUC 

000210 

MPSBDF  002164 

MPSDUM 

000202 

MPSBFQ  002121 

MPSDUP 

002127 

MPSBLK  0U1616 

MPSDVC 

002114 

MPSBIO  001452 

MPSDWE 

001321 

MPSBMX  002176 

MPSELT 

000157 

MPSBNP  006330 

MPSETY 

001605 

MPSBRT  001620 

MPSEVfc 

000311 

MPSBSA  002176 

MPSFNC 

001752 

MPSBSD  002203 

MPfGDT 

002222 

MPSBSI  002200 

MPSGNM 

002223 

MPSBSP  006331 

MPSGRO 

002115 

MPSBUF  000170 

MPSGRP 

000541 

MPSBUP  006324 

MPSGTY 

002224 

MPSBbS  001643 

MPvHAD 

001757 

MPSCAC  001750 

MPJHBT 

002142 

MPSCAS  001762 

MPSHDD 

000162 

MPSCAT  002210 

MPSHTM 

001612 

MPSCCS  004406 

MPSHWA 

002210 

MPSCHN  002141 

MPSIAT 

001322 

MPSCIR  000144 

MPSIDE 

C00144 

MPSCLK  002131 

MPS  I  DP 

006327 

MPSCLN  002126 

MPSIHO 

000215 

MPICLT  002211 

MPSINA 

002U7 

MPSCMB  002142 

MPSIND 

002204 

MPSCMK  000537 

MPSINI 

002^01 

MPSCMX  002153 

MPSITl 

000776 

MPSCND  000310 

MPSLAA 

000231 

MPSCNU  001753 

MPSLAN 

C00234 

MPSCOB  000311 

MPSLAR 

000202 

MPSCON  002126 

MPSLAS 

000012 

MPSCOS  001604 

MPSL8S 

000203 

MPSCPF  000230 

MPSLCO 

000226 

MPSCPL  000232 

MPSLCT 

000156 

MP$i PT  000226 

MPSLHL 

000232 

MPtCPU  000161 

MPSLLE 

000227 

MPSCSZ  001755 

MPSLLO 

004432 

MPSCUS  002127 

MPSLMB 

002152 

MPSCVA  000540 

MPSLMX 

002200 

MPSDAL  002570 

MPSLNA 

000144 

MP$DCO=  001464 

MPSLNO 

000253 

MPSDDT  002177 

MPSLOA 

000170 

MPJCEL  001131 

MPSLOG 

004514 

MPiDES  C00156 

MPSLOO 

000620 

MPSDEV  002114 

MPSLTM 

0016^3 

MPSDFA  001320 

MFSlTY 

004533 

MP$DH0=  001465 

MPSLUI 

00023C 

MPSDIA  000173 

MPSMAC 

004^20 

MPSDLB  002571 

MPSMAD 

00^630 
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BIT  DEFINITIONS 

.S8TTL  BIT  DEFINITIONS 


63 


000001 
000002 
OOOOOA 
000010 
000020 
OOOOAO 
0001 UO 
000200 
000360 


000001 
000002 
OOOOOA 


0C0010 
000020 
OOOOAO 
OAOOOO 
100000 


000001 
000002 
OOOOOA 
000010 
000020 
COOOAO 
000100 
000200 
OOOAOO 
001000 
002000 
OOAOOO 
0^0000 
020000 
OAOOOO 
100000 


PARSE  FLAG  DEFINITIONS  (L$PFG) 

LPSUNT  =  1  ;  UNIT  NUMBER  FOUND 

LPITR8  =  2  ;  TRIBUTARY  NUMBER  FOUND 

LPSMUX  =  A  ;  DEVICE  IS  MUX 

LPSMPT  =  10  ;  LINE  IS  MULTIPOINT 

LPSWDV  =  20  ;  WILD  CARD  DEVICE  NAME  FOUND 

LPSWCN  =  AO  ;  WILD  CARD  CONTROLLER  NUMBER  FOUND 

LPSWUN  =  100  ;  WILD  CARD  UNIT  NUMBER  FOUND 

LPSWTR  =  200  ;  WILD  CARD  TRIBUTARY  NUMBER  FOUND 

LPSWLD  =  LP$WDVILP$WCNlLP$WUN!LPlWTR  ;  WILD  CARD  FIELD  MASK 

FLAGS  WORD  BIT  DEFINITIONS  (LSFLG) 


LFSREA  = 
LFSZER  = 
LFSSKP  = 


LF$VR2  =  10 

LrJEND  =  20 

LF$SIG  =  AO 

LF$MLT  =  AOOOO 

LF$SEG  =  100000 

BIT  POSITION  DEFINITIONS 


READ  COUNTERS  OPERATION 

ZERO  COUNTERS  OPERATION 

SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 

THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 

FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 

CONTROLLER  COUNTERS  AS  WELL  AS  ALL 

OF  THE  TRIBUTARY  COUNTERS. 

CONNECTED  TO  VERSION  2.0  NCP 

EXECUTOR  IS  AN  ENDNODE 

SHOWING  SIGNIFICANT  LINES/CIRCUITS 

MULTIPLE  ADJACENCY  FLAG 

SEGMENTED  RESPONSE  IN  PROGRESS 


BITO  = 
BIT1  = 
BIT2  = 
BIT3  = 
BITA  = 
BIT5  = 
BIT6  = 
BIT7  = 
BITS  = 
BIT9  = 
BIT10 
BIT11 
BIT12 
BIT13 
BIT1A 
BIT15 


1 

2 

A 

10 

20 

40 

100 

200 

AOO 

1000 
=  2000 
=  AOOO 
=  10000 
=  20000 
=  AOOOO 
=  100000 
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DISPATCH  TABLE  ENTRY 
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49 
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CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

LP$TRB 

=  000002 

#7-61 

10-193 

LPSUNT 

=  000001 

#7-61 

LPSWCN 

=  000040 

#7-61 

7-61 

LPSUDV 

n  000020 

#7-61 

7-61 

LPSWLD 

=  000360 

#7-61 

LPSWTR 

=  000200 

#7-61 

7-61 

LPSWUN 

=  000100 

#7-51 

7-51 

L$ADJ 

000110 

#6-61 

LSBUF 

000060 

#6-61 

LSCHN 

OOOOS-i 

#6-61 

LSCOU 

0001 1A 

#6-61 

L$CTB 

000053 

#6-61 

L$CTL 

000002 

#5-61 

L$DDM 

000000 

#6-61 

L$FLG 

00006-; 

#6-61 

10-174 

10-205 

LSFLX 

000070 

#6-51 

LSLEN 

000124 

#6-6' 

L$LTM 

000070 

#6-61 

LSMSG 

000056 

#6-61 

LSMTYP 

000067 

#6-61 

LSNAM 

000000 

#6-61 

LSNLEN 

=  000020 

#6-51 

6-61 

6-51 

LSNOD 

000112 

#6-61 

LSNXT 

000044 

#6-61 

LSOPT 

000062 

#6-61 

LSPAR 

000120 

#6-61 

lspdv 

000055 

#6-61 

L$PFG 

000041 

#6-61 

10-190 

10-193 

L$PLB 

000116 

#6-61 

LSPRO 

000067 

#6-61 

L$PVC 

000004 

#6-51 

LSSCN 

000020 

#5-61 

LSSCR 

000072 

#6-61 

LSSLEN 

000066 

#6-61 

L$SLT 

000042 

#6-61 

1  $SNM 

000046 

#5-61 

l$:yl 

000122 

#6-61 

LSTNM 

00005.: 

#6-61 

LSTPT 

000050 

#6-61 

LSTRB 

000040 

#6-51 

LSTSZ 

000070 

#5-51 

LSTYP 

000063 

#5-61 

LSUNT 

000003 

#6-61 

L.NLSE 

000C54 

9-130 

L.NRSE 

000053 

9-124 

L.SCFW 

000056 

9-125 

9-125 

9-125 

9-126 

9-126 

9-125 

9-127 

9-127 

9-127 

9-128 

9-128 

9-128 

"-131 

9-131 

9-131 

9-132 

9-132 

9-'32 

9-133 

9-133 

9--!33 

«-134 

Q-13' 

9-134 

L.TIMC 

000060 

9-88 

N$$VCT 

-  *  ♦  ♦  n  *  * 

10-163 

10-212 

R$R3 

-  ...♦«»  G> 

.10-213 

R$R5 

r  ..,.,♦   G> 

10-203 

DCPCOU 
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DLCCOU  ■ 

•  READ  AND 

7FR 

Symbol 

able 

A$$rHK= 

000000 

At$CPS= 

000000 

A$$PRI= 

000000 

A$$TRP= 

000000 

3IT0  = 

000001 

3IT1   = 

000002 

3IT10  = 

002000 

3ini  ^ 

004000 

3IT12  = 

010000 

B1T13  = 

020000 

BITK  = 

040000 

BIT15  = 

100000 

BIT2  = 

000004 

BIT3  = 

000010 

BITA  = 

000020 

B1T5  = 

000040 

BIT6  = 

000100 

BIT7  = 

000200 

BITS  = 

000400 

B1T9  = 

001000 

B$10 

000003 

B$n 

000004 

B$12 

000005 

B$5 

000000 

B$6 

000001 

B$7 

000002 

B$7S10 

000006 

CB.CCB= 

000002 

CB.DDM= 

000040 

CB.DLC= 

000020 

CB.RDB= 

000004 

CB.SDB= 

000010 

CB.SLI= 

000100 

CB.XLB= 

000001 

CC.LLC= 

00C200 

CE.ABO= 

100362 

CE.DAO= 

100346 

CE.DIS= 

100366 

CE.ERR= 

100370 

CE.ILN= 

100350 

CE.LTOi 

100356 

CE.MOP= 

100372 

CE.NTE= 

100361 

CE.RTE= 

100376 

CE.SRC= 

100364 

CE.STP= 

10C352 

CE.TI»1E  = 

100354 

CE.TMO= 

10057A 

CE.UNS= 

100344 

CF.CHN= 

000001 

CF.EOM= 

000004 

CF.HDR= 

000020 

CF.LB  = 

100000 

CF.LIN= 

000002 

CF.SOM= 

000010 

CF.SVN= 

000040 

rF.TRN= 

000100 

^2l! 
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CM.CIR= 

000002 

C.LNK 

rM.FMT= 

100000 

C.MOD 

lM.HRD= 

000002 

C.K^P 

CM.L1N= 

000000 

C.PRO 

CM.L00= 

000001 

C.RSV 

CM.XLO= 

000004 

C.STA 

COPY 

000664R 

C.STS 

CP.DCF= 

000040 

C.URM 

CP.HDL= 

000007 

C.XACP 

CP.PS  = 

177400 

C.XID 

CP.PSI= 

000200 

C.XLEN 

CP.XCF= 

000100 

C.XPLl 

CP.2FR= 

000030 

C.XPT 

CS.ABO= 

000100 

C.XSVC 

CS.BRO= 

000002 

C.XTC 

CS.BUF= 

000200 

C.X25 

CS.CES= 

000002 

D$$BUG= 

CS.CHN= 

000010 

D$$ISK= 

CS.CMP= 

000200 

D$$L11= 

CS.DCR= 

000400 

D$$yNC= 

CS.DEF= 

000004 

D$$YN«= 

CS.DEV= 

000002 

ENTITY 

CS.DIS= 

000040 

E$*»XPR= 

CS.ENA= 

000001 

FC.CCP= 

CS.ENB= 

000020 

FC.CTL= 

CS.ERR= 

100000 

FC.KCP= 

CS.FTL= 

001000 

FC.KIL= 

CS.HCR= 

000001 

FC.MAN= 

CS.HFE= 

002000 

FC.I»ILD= 

CS.LST= 

040000 

FC.PCT= 

CS.MTL= 

004000 

FC.PWR= 

CS.RNG= 

000010 

FC.RCE= 

CS.ROV= 

000004 

FC.RCP= 

CS.RSN= 

010000 

FC.TIM= 

CS.SHU= 

000001 

FC.XCP= 

CS.SID= 

000002 

FC.XME^ 

CS.iTR= 

000004 

FMTCOU= 

CS.SUC= 

000001 

FORK  = 

CS.T|V|0= 

020000 

FS.AST= 

CS.XUR= 

000004 

FS.CIB= 

CURCTX= 

*♦**»*  GX 

FS.CRA= 

C$$CKP= 

000000 

FS.DIS= 

C$$ORE= 

000400 

FS.DVC= 

C$$RSH= 

177564 

FS.ENB= 

C.ADD 

000034 

FS.EX1= 

C.BID 

000003 

FS.GET= 

C.BUF 

000014 

FS.HLT= 

C.BUF1 

000014 

FS.INI= 

C.BUF2 

000024 

FS.KIL= 

C.CNT 

000020 

FS.LCL= 

C.CNT1 

000020 

FS.LTM= 

C.CNT2 

000030 

FS.MNT= 

C.FLG 

000022 

FS.MSN=: 

C.FLG1 

000022 

FS.REA= 

C.FLG2 

000032 

FS.RET= 

cue 

000010 

FS.REZ= 

C.LIN 

000006 

fs.r:_b= 

000000 

FS.RNG= 

011000 

000011 

FS.RST= 

000000 

000004 

FS.RTN= 

001000 

000042 
000002 

FS.SET^ 

005000 

FS.3FC= 

005000 

000007 

FS.SFR= 

006000 

000012 

FS.SFS= 

004000 

177776 

FS.SPW= 

040000 

000004 

FS.STM= 

000000 

000035 

FS.STP^^ 

002000 

000044 

FS.STR= 

001000 

000040 

FS.TRM= 

003000 

000034 

FS.WL8= 

001000 

000042 

fs.xk;l= 

002000 

000037 

FS.XOF  : 

010000 

000036 

FS.XON= 

007000 

177514 

FS.ZER= 

002000 

000000 

F$$LVL^ 

000001 

000001 

GETXPr 

000732R 

COOOOO 

G$$TPP= 

000000 

000000 

G$$TSS= 

000000 

OOOOOOR 

G$$TTK= 

000000 

000000 

G$$WRD= 

000000 

000020 

I$$RAR= 

000000 

000006 

I$$RDN= 

000000 

000016 

KISAR6= 

»**«»»  GX 

000004 

K$$CNT= 

177546 

000024 

K$$CSR= 

177546 

000026 

K$$LDC= 

000000 

000030 

K$$TPS= 

000074 

000022 

LCSEXT 

000000 

o:ooo2 

LCSINT 

000001 

000014 

LDBGT  = 

******  GX 

000010 

LDBRT  = 

******  GX 

000012 

LDSLP  = 

000000 

000000 

LF$END= 

000020 

«*♦***  GX 

L'-$|V|LT= 

040000 

**«**»  GX 

LFiREA= 

000001 

000000 

LF$SEG= 

100000 

002000 

LF$SIG= 

000040 

001000 

LF$SKP= 

000004 

013000 

LF$VR2= 

000010 

001000 

LF$ZER= 

000002 

012000 

LF.ACT= 

100000 

001000 

LF.BRO= 

000400 

006000 

LF.SWT= 

000007 

ooooco 

LF.ENA= 

002000 

000000 

LF.LPB= 

001000 

000000 

LF.MDC= 

000100 

100000 

LF.MFL= 

004000 

001000 

LF.MTP= 

000020 

004000 

LF.PAC= 

000200 

014000 

LF.RDY= 

040000 

001000 

LF.REA= 

010000 

000000 

LF.SER^ 

000040 

003000 

LF.TIM= 

000010 

002000 

LF.UNL= 

020000 

LF.X2P= 

LN.CLO= 

LN.DUM= 

LN.L0A= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.Of-E  = 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

LP$MPT= 

LP$MUX= 

LP$TRB= 

LP$UNT= 

LP$UCN= 

LP$WDV= 

LP$WLD= 

LP$WTR= 

LP$WUN= 

L$ADJ 

L$BUF 

L$i"HN 

L$LOU 

LSCTB 

LSCTL 

L$DDM 

L$FLG 

LSFLX 

LSLEN 

L$LTM 

L$MSG 

LSMTYP 

L$NAM 

L$NLEN= 

L$NOD 

L$NXT 

L$OPT 

L$PAR 

LSPDV 

L$FFG 

LIPLB 

L$PRO 

LSPVC 

LSSCN 

L$SCR 

LSSLEN 

L$SLT 

L$SNM 

LSSYL 

L$TNM 

L$ThT 

LITRB 


000000 
000000 
000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000010 
000004 
000002 
000001 
000040 
000020 
000360 
000200 
000100 
000110 
000060 
000054 
000114 
000053 
000002 
000000 
000064 
000070 
000124 
000070 
000056 
000067 
000000 
000020 
000112 
000044 
000062 
000120 
000055 
000041 
000116 
000067 
000004 
000020 
000072 
000066 
000042 
0000'.6 
000122 
000052 
000050 
000040 
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A9 
50 
51 
52 
53 
5^, 
55 
56 
5?  000000 

58  onoooo 

59  000000 

60  000000 
61 


.SBTTL  MACRO  CALLS  AND  LOCAL  DEFINITIONS 

MACRO  LIBRARY  CALLS 

.MCALL   SAVMAP, MAP, BIAS, RESMAP,SAVRG,RESRG,CALLR,DLCOU$ 
.MCALL   DLMDF$,SLTDF$,PDVDF$ 
.MCALL   CEACC$,MBILD$,CIRCX$ 


MBILDS 
DLMDFS 
SLTDFS 
PDVDFS 


DEFINE  MESSAGE  BUILDING  SYMBOLS 

DEFINE  DLM  SYMBOLS 

DEFINE  SLT  OFFSETS 

DEFINE  PDV  OFFSETS 
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SYMBOL 

VALUE 

REFERENCES 

ASCIMG 

=  000100 

#5-57 

BITO 

=  000001 

#7-65 

BIT! 

=  000002 

#7-65 

B1T10 

=  002000 

#7-65 

B1T11 

=  00^000 

#7-65 

BIT12 

=  010000 

#7-55 

B1T13 

=  020000 

#7-65      9-86 

BITU 

=  OAOOOO 

#7-65 

BIT15 

=  100000 

#7-65      9-86 

BIT2 

=  000004 

#7-65 

B1T3 

=  000010 

#7-65 

B1T4 

=  000020 

#7-65 

BITS 

=  000040 

#7-65 

BIT6 

=  000100 

#7-65 

BIT? 

=  000200 

#7-65 

BITS 

=  000400 

#7-65 

B1T9 

=  001000 

#7-65 

B$10 

000003 

#6-(, 

B$11 

000004 

#6-65 

B$12 

000005 

#6-65 

B$5 

000000 

#6-65 

Bt6 

000001 

#6-65 

B$7 

000002 

#6-65 

B$7S10 

000006 

#6-65 

CODMUL 

=  000300 

#5-57 

CODSNG 

=  000200 

#5-57 

OECSIG 

=  000020 

#5-57 

DECUNS 

=  000000 

#5-57 

DLMCOU 

000006  RG 

#10-106 

DLMT80 

000000  R 

#9-86      10-118 

FMTCOU 

=  «••♦««  GX 

10-120 

FNDDLM 

000062  R 

10-109    #11-149 

HEX 

=  000040 

#5-57 

HEXIMG 

=  Mim 

#5-57 

IS$AS 

-   ****** 

5-60 

K1SAR6 

=  ******  GX 

10-108    »10-123 

LFSEND 

=  000020 

#7-65 

LF$MLT 

=  040000 

#7-65 

LFSREA 

=  000001 

#7-C5 

LFSSEG 

=  100000 

#7-65 

LFSSIG 

=  000040 

#7-65 

LF$S<P 

=  000004 

#7-65 

LF$VR2 

=  000010 

#7-65 

LFSZER 

=  000002 

#7-65 

LF.ACT 

=  100000 

#5-59 

LF.SRO 

=  000400 

#5-59 

Lf.BWT 

=  0C0007 

#5-59 

LF.E\iA 

=  002000 

#5-59 

LF-LPB 

=  001000 

#5-59 

IF.MDC 

=  000100 

#5-59 

LF.MFl 

=  004000 

#5-59 

LF.MTP 

=  000020 

#5-59 
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ERROR  MESSAGE  STRINGS 

78 
79 
80 
8T 
82 
83 
S'. 
8S 
8c  OOOOO-i 

87  000005    10^ 

88  000020 
89 
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.SBTTL   ERROR  MESSAGE  STRINGS 
■  ERROR  MESSAGE  STRINGS 
.ENA8L  LC 
THE  NEXT  THREE  LINES  MUST  REMAIN  CONTIGUOUS 


1U 


130 


;  NOTE; 

DLXMSG: 
DLXTXT; 
DLXERR: 


.BLK8 
.ASCII 
.BLK8 
.EVEN 


1 

/DLX  error  */ 

6 


BUffER  FOR  DLX  STRING  LENGTH 
BUFFER  FOR  DLX  ERROR  CODE 


ni  ynin  -  i=;<;mf  i/n  to  di  x 
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1 
2 
3 
li 
5 
6 

7 

8 

9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.llf  NDf  M$$ACP  .TITLE   DLXOIO  -  ISSUE  I/O  TO  DLX 

.IIF  DF  M$$ACP  .TITLE   DLXAST  -  ISSUE  I/O  TO  DLX  AND  WAIT  FOR  AST 

.IDENT  /V05.00/ 

.NLIST  BEX 

COPyRIGHT  (C)  1979,  1980,  1982,  1983,  198:i  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCIUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  ISSUE  I/O  REQUESTS  TO  NX:  (DLX) 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  24-MAR-81 

CREATED  FROM  LiCHOP,  CONDI T lONALIZED  TO  FORK  WHEN  RUNNING  IN 
THE  NETWORK  MANAGEMENT  ACP 

2.0C  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NCV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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3 

5 
6 

7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
25 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
A1 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE  CIREOP  -  CIRCUIT  READ  INF0r,MATI0N  OPERATE 

.JDENT  'V05.00/ 

.ENABL  lC 

.NLIST  CND 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  Of  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPftcNT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  CIRCUIT  READ  INFORMATION  OPERATE  ROUTINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  01-JUL-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

2.00  ^6-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


OF  ITS 
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II A  tdpl  r  ft 


CIREOP 


CREATED  BY  MACRO  ON  29-JUN-85  AT  12:18 


S'HBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


X$$HCB 

ZF.COU 

ZF.DDM 

ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.INI 

ZF.KMX 

ZF.LLC 

ZF.LHC 

Z F.MAN 

ZF.MFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.A5N 

ZS.BSY 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

SSAVRG 


=  001000 

=  000001 

=  00^000 

=  000002 

=  IOOOv/0 

=  040000 

=  0C0020 

=  000004 

=  000100 

=  020000 

=  000010 

=  000400 

=  000040 

=  002000 

=  010000 

=  000200 

=  000000 

=  100000 

=  140000 

000014 

000016 

000000 

000010 

=  000016 

000006 

000020 

000004 

000012 

000007 

=   ****** 


GX 
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CREF   04.00 


REFERENCES 

5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 

7-105 


5-63 


5-63 
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CIRES;  -  READ  CIRCUIT  STATUS    MACRO  V05.03b  Thursday  25-Jul.-85  15 
PUTNOD  -  Put  node  id  and  block  size 


J 


5  Page  10-1 


4A^ 
A45 
AA6 
447 
448 
449 
450 
451 
452 
453 


001276  126427  000062  000000  30$: 

0U1304  001410 

001306  004567  OOOOOOG 

001312  001452 

001314  000002 

001316  116723  176526 

001322  116723  176523 


001326 


40$: 


CMP8  L$0PT(R4),#M0$SUM 

BEQ  40$ 

JSR  RS.SETPAR 

.WORD  MPiBLO 

.WORD  2 

MOVB  TEMP.(R3)+ 

MOVB  TEMP+1,(R3)t 

RETURN 


is  this  a  "read  SUMMARY"  reouest  ? 
if  EQ,  yes  -  don't  return  block  size 
return  block  size 

block  data  type  =  two  decimal  bytes 
set  segment  size  low  byte 
...and  high  byte 


CIREST  -  READ  CIRCUIT  STATUS    MACRO  V05.03b  Thursday  25-Jul-85 


^5:i 


CC  ThJAM 
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D  t, 


CIREST 

CREATED  BY 

MACRO     ON  25 

-JUL-85  AT 

15:36 

PAGE  4 

SYMBOL 

:ross  REF-. 

?ENCE 

CREF       04 

00 

SYMBOL 

VALUE 

REFERENCES 

HStFAl 

000013 

7-205 

MSSLOA 

000003 

6-107 

6-115 

6-123 

MStLOO 

000002 

6-107 

6-115 

6-123 

MSSOFF 

000001 

6-91 

MS$ON 

000000 

a 

6-93 

6-94 

MSSREF 

000001 

6-115 

6-119 

MSSSER 

000002 

6-92 

MSSSTA 

000000 

13-581 

MSSTRI 

000005 

6-107 

6-115 

6-123 

MS. PAR 

000003 

7-283 

MTSASC 

000100 

7"233 

10-439 

MTICOD 

000200 

7-174 

7-213 

10-426 

10-432 

13-580 

MTSMUL 

000100 

10-426 

10-432 

M$$MGE 

=  000000 

7-269 

8-326 

8-329 

NIADJi 

000072 

8-325 

9-363 

N$ADJ2 

00007A 

8-328 

9-377 

NSPLD 

000016 

12-515 

12-519 

N$$VCT 

=  ****** 

8-314 
13-566 

8-322 
13-572 

8-331 

9-353 

9-363 

9-377 

PDVID 

=  ****** 

GX 

8-318 

9-355 

12-5'j7 

13-553 

PDVTA 

=  ****** 

GX 

8-320 

9-357 

12-5-'1 

PSICIR 

=  ****** 

GX 

7-167 

PSSFAI 

=  oooou 

7-206 

PSSUP 

=  000012 

7-209 

7-240 

PTIBRO 

=  000200 

7-247 

PUTNOD 

001U6 

R 

7-294 

#10-404 

PU.SCP 

=  000002 

#13-547 

13-576 

PSCHN 

000004 

8-316 

PSLST 

000000 

7-206 

7-209 

7-240 

P$TYP 

000001 

7-247 

P.CHAN 

=  000000 

#13-545 

13-567 

P.STSC 

=  OOOOOA 

#13-546 

13-569 

R$R1 

=    ****** 

GX 

«8-315 

*8-327 

R$R2 

=    ****** 

GX 

•13-569 

R$$EIS 

-    ****** 

7-268 

R$$PRO 

-    ****** 

7-164 

R$$11D 

=    ****** 

5-65 

7-268 

Rt$11M 

=  000000 

5-65 

7-269 

8-326 

8-329 

Rssns 

=    ****** 

5-65 

6-85 

6-129 

7-154 

7-164 

7-298 

SETNAM 

001330 

R 

7-234 

10-440 

#11-473 

SETPAR 

=:     ****** 

GX 

7-172 

7-211 

7-231 

10-424 

10-446 

13-578 

SF.ACT 

=  000200 

#5-67 

SF.ENA 

=  000100 

#5-67 

SF.LPB 

=  000004 

#5-67 

7-224 

SF.MFL 

=  000040 

#5-67 

SF.PAC 

=  000020 

#5-67 

SF.REA 

=  000010 

#5-67 

SF.SER 

=  000001 

#5-67 

SF.SVC 

=  000002 

#5-67 

SF.UNL 

^  000040 

#5-67 

SNACIR 

001470 

R 

7-203 

#13-550 

SNAP1 

-      ****** 

GX 

13-558 

9-381 


9-383 


12-523 


10-400 


11-488 


CIREST 
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SETDF.A  -   SET   DEAD  POLLING  RATE 


Page  8 


194 

195 

196 

19:' 

198 

199 

200 

201 

202 

205 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213  000350 

2U  000356 

215  000360 

216  000366 

217  000370 

218  000376 
219 

220  000400 

221  000404 

222  000410 

223  000414 

224  000416 

225  000422 

226  000434 

227  000436 

228  000444 

229  000450 
230 

231  000452 

232  000454 

233  000460 

234  000462 

235  000470 

236  000474 

237  000476 
238 

239 
240 
241 


.SBTTL  SETDEA  -  SET  DEAD  POLLING  RATE 

♦*-SETDEA-SET  DEAD  POLLING  RATIO  FOR  A  LINE 

THIS  ROUTINE  IS  CALLED  TO  CHANGE  THE  DEAD  POLLING  RATE 
FOR  A  LINE. 


INPUTS: 
R4 


ADDRESS  OF  CONTEXT  AREA  WITH: 
L$DEA(R4)  =  NEW  DEAD  POLLING  RATE 


OUTPUTS: 

IF  CC,  RATE  CHANGED, 
ELSE,  ERROR  CODE  IN  RO 

REGISTERS: 

R4,  R5  ARE  PRESERVED 


022764 
001441 
132764 
001435 
132764 
001031 


103010 
010066 

000403 
116460 


103011 
022700 
001005 
012764 
012700 
000261 


000001 


177777 
000010 
000002 


000004 


000105 


177767 

004421 
177752 


000050  SETDEA: :CMP 
BEQ 

000041         BITS 
BEQ 

000041         BITS 
BNE 


20$: 


00C047  30$: 
40$: 


50$: 


000072  60$: 

70$: 
80$: 


SWSTK$ 

SAVMAP 

CALL 

BCC 

MOV 

RETC 

BR 

MOVB 

RESMAP 

RETURN 

BCC 
CMP 
BNE 
MOV 
MOV 
SEC 
RETURN 


#-1,L$TPT(R4) 

60$ 

#LP$MPT,L$PFG(h4) 

60$ 

*LP$TRB,L$PFG(R4) 

60$ 

50$ 

FNDDCP 

30$ 

R0,2+RBIAS(SP) 

RO 

40$ 

L$DEA(R4),L.PLD(R0) 


80$ 

#ME.1ID,R0 

70$ 

*MP$MDE,L$PAR(R4) 

#ME.PNA,RO 


IS  THIS  A  PVC? 

BR  IF  YES  -  ERROR 

IS  THIS  A  MULTI-POINT  LINE  ? 

IF  EQ,  NO  -  PARAMETER  NOT  APPLICABLE 

WAS  A  TRIB  NUMBER  SPECIFIED  ? 

IF  NE,  YES  -  NOT  APPLICABLE 

ENTER  SYSTEM  STATE 

SAVE  OUR  CURRENT  MAPPING 

FIND  THE  DCP  LINE  TABLE 

IF  CC,  FOUND  IT 

ELSE,  RETURN  ERROR  CODE  IN  RO 

RETURN  CARRY  TO  USER  STATE 

AND  RETURN 

SET  THE  NEW  POLLING  RATE 

RESTORE  PREVIOUS  MAPPING 

BACK  TO  USER  STATE 

IF  CC,  SUCCESS 

WAS  THE  LINE  NOT  A  DDCMP  LINE  ? 

IF  NE,  NO  -  RETURN  WITH  ERROR 

ELSE,  SET  PARAMETER  IN  ERROR 

SET  PARAMETER  NOT  APPLICABLE  ERROR 


.ENDC   ;  NDF  S$$BAS  i   R$$RTR 
.END 


CIRMAP     CREATED  BY  MACRO  ON  2<'-JUN-85  AT  12:20 
MACRO  CROSS  REFERENCE 


MACRO  NAME 


REFERENCES 


BIAS 

#5-59 

:all 

6-120 

CEACCS 

#5-59 

CICCX$ 

#5-59 

)DCDF$ 

#5-59 

)MPDF$ 

#5-58 

*iandf$ 

#5-58 

lAP 

#5-59 

=CLDF$ 

#5-59 

ODVDFS 

#5-58 

RESMAP 

#5-59 

RESRG 

#5-58 

RETC 

#5-59 

RETURN 

6-145 

SAVMAP 

#5-59 

SAVRG 

#5-58 

SLTDFS 

#5-58 

SWSTKS 

6-120 

TMPDFS 

#5-66 

.ADDRB 

#5-66 

.ADDRW 

#5-66 

.APR 

#5-66 

.BIN 

#5-66 

.CNB 

#5-66 

.CNU 

#5-66 

.CORE 

#5-66 

.CSR 

#5-66 

.CTIM 

#5-66 

.DPRB 

#5-66 

.DPRW 

#5-66 

.DVCHA 

#5-66 

.INT 

#5-66 

.INT1 

#5-66 

.INT2 

#5-66 

.INT3 

#5-66 

.LFLHD 

#5-66 

.LI8R 

#5-66 

.LINKS 

#5-66 

.LSTHD 

#5-65 

.LTAB 

#5-66 

.MPLHD 

#5-66 

.MXPTB 

#5-66 

.PEChA 

#5-66 

.POOL 

#5-66 

.PRl 

#5-66 

.SCOM 

#5-66 

.SECSR 

#5-66 

.SLNB 

#5-66 

.SLNW 

#5-66 

.STNB 

#5-66 

.STNW 

#5-66 

.TIME 

#5-66 

6-122 

5-76 
5-65 
5-62 
5-61 

5-66 
5-63 
6-144 

6-141 
6-148 
6-121 

5-64 

7-175 

5-66 


5-66 


5-66 
5-66 


5-66 
5-66 

5-66 


5-66 
5-66 
5-66 


D     6 
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CREF        04.00 


6-129 


6-133 


7-175 


7-177 


8-220 


8-222 


7-183 

7-180 
7-184 
7-176 


8-220 


8-228 

8-225 
7-192 
8-221 


8-229 


8-237 


5-66 


5-66 


5-66 
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Symbol  table 


Page  6-1 


MPSMAP 

MPSMAR 

MPSMAV 

•IPSHBN 

MPSHBR 

MPIMBU 

JIPSMCB 

HPSMCO 

MPSHDE 

MPtMHO 

HPSMLB 

HPSMLK 

MPtHLN 

MPSMLP 

MPSMRB 

hPSMRO 

MPSMRP 

MPSMRT 

MPSMRV 

MPSMSB 

MPSHVE 

MPSHVI 

MPSMVR 

MPSMWN 

MPSMXB 

MPSMXC 

MPSMXR 

MPSMXW 

MPSNAA 

MPSNAC 

MPSNAP 

MPSNCT 

MPSNET 

MPSNLI 

MP$NNA 

MPSNOD 

MPSNRA 

MPSNRB 

MP$NSA 

MPSNTl 

MP$NUM 

MPSNVE 

MPSNXN: 

MPSOAC 

MPSOAN 

WPSOCO 

MPSOHO 

MPSONA 

MPSONR 

HPSOQL 

MPSOTI 

MPSOTY 

MPSOUS 

MPIOVE 

NPSOWN 

MPSPAR 


00652:- 

001635 

006321 

001636 

001637 

0016A2 

000156 

001632 

001421 

001633 

000202 

001306 

001631 

006333 

002171 

001605 

006322 

002153 

006320 

000170 

000115 

001631 

001751 

002151 

002172 

000166 

001630 

002113 

006335 

001130 

006326 

000210 

002111 

000765 

000761 

000500 

006331 

000211 

001617 

002111 

001612 

001271 

001176 

000632 

000620 

000776 

0C0211 

000761 

002111 

001153 

000777 

001022 

000777 

001010 

001371 

000036 


MPSPAS 

MPSPCH 

flPSPCO 

MPSPCT 

MPSPDT 

MPtPHA 

MPSPHY 

MPSPLI 

MPSPLN 

MPSPLO 

MPSPHC 

MPIPNT 

MPSPRI 

HPSPRO 

MPSPSS 

ilPSPST 

MPSRET 

MPSRFA 

MPSRMX 

MPSRPA 

MPSRPR 

MO$RRT 

HPtRST 

HPtRSV 

MPSRSZ 

MPSRTI 

MPSRTM 

MPSRVE 

MPSRVI 

HPSSAC 

MPSSAD 

MPSSCA 

MPSSCO 

MPSSCT 

"IPSSDU 

MPSSDV 

MPSSEH 

f1P$SER 

HPSSET 

MPSSGZ 

MPSSID 

HPSSIN 

MPSSLI 

MPSSLO 

MPSSMX 

MPSSND 

MPSSNP 

MPSSNU 

MPSSOB 

MPSSPA 

MPSSPR 

MPSSPS 

MPSSTA 

MPSSTI 

MPSSTT 

MP$STY 


000513 
002152 
000021 
000111 
002111 
000170 
000012 
000025 
002110 
000012 
001371 
002126 
001111 
002130 
001763 
001762 
001631 
001323 
002201 
001371 
001606 
002213 
002212 
001751 
001756 
001616 
001611 
001601 
000156 
000511 
000513 
000310 
000111 
002176 
000203 
000160 
001101 
000111 
000000 
001611 
000176 
000310 
000156 
000171 
002202 
000500 
006332 
000512 
000521 
000157 
000536 
000513 
000000 
002110 
002201 
000175 


MPSSUB 

000001 

MSSSRV 

000007 

MX$DTE 

000020 

HPSSUR 

000156 

HSSSTA 

000000 

MXSFIL 

000031 

MPSSUS 

000512 

HSSSYN 

000012 

MXSLGC 

009^^^ 

MPSSVR 

000163 

HSSTER 

000001 

MXSLIN 

2999^9 

MPSSWI 

002260 

MSSTOP 

000003 

MXSLON 

000006 

MPSSYP 

002121 

MSSTR] 

000005 

MXSNMS 

000151 

MPSTFL 

000156 

HSSUNR 

000005 

MXSNOD 

99999§ 

MPSTHI 

002206 

MSSVHS 

000P01 

MX$OBJ 

000006 

MP$TH2 

002205 

MS . DON 

177600 

MXSOUN 

000010 

MP$TH3 

002202 

MS.MOR 

000002 

MXSPAR 

000036 

HPSTLN 

000202 

MS. PAR 

000003 

HXSPAS 

09991s 

MPSTLO 

000 1 72 

MS. sue 

000001 

HXSRAC 

000017 

NPSTPA 

001375 

MT$AR1 

000003 

MXSRID 

000017 

HPSTRl 

002161 

MTSASC 

000100 

MXSRPS 

000017 

MPSTST 

000111 

MTSBIL 

000001 

MXSSID 

0995^9 

MPtTYP 

002130 

MTSBYS 

000011 

MXSSNK 

000377 

MPtUCS 

001107 

MTSCl 

000007 

MXSTYP 

000077 

MPSUSR 

001750 

MTSCLE 

000077 

HXSUID 

000020 

HP$VEC 

001110 

MT$COD 

000200 

M$$CRB= 

0991^1 

MPSVER 

001106 

MTSCON 

000001 

M$$CRX= 

000000 

MPSUDF 

002165 

MTSDHC 

000001 

M$$FCS= 

000000 

MPSUMX 

002177 

MTSETH 

000006 

M$$H6E= 

000000 

MPIXMT 

002166 

MTIHEX 

000010 

M$$NET= 

000000 

MPSXPF 

000212 

MTSLPB 

000005 

M$$OVR= 

000000 

MPSXPL 

000211 

MTSHAX 

000037 

NM.CLN 

003100 

MPSXPT 

000210 

MTSMUL 

000100 

NM.INJ 

002100 

MPSXXX 

M7777 

MT$NLE 

000017 

NM.OPR 

003000 

MP$5ST 

001106 

HTSNON 

000001 

NM.VR2 

002101 

MSSACT 

000001 

HTSNRI 

000005 

NM.VR3 

002102 

nSSADU 

000010 

MTJNTY 

000060 

N$$ACC= 

000001 

MSSALO 

000007 

MTSOCT 

000060 

N$$BUF= 

000001 

MSSASE 

000006 

MT$PHA 

000002 

N$$LDV= 

000001 

MSSATR 

000011 

MTSPOI 

000000 

N$$MCP= 

000001 

MSSAUT 

000000 

MT$QP2 

000010 

N$$MLL= 

000001 

MSSCLE 

000003 

MTSROU 

000000 

N$$HOV= 

000010 

MS$DED 

000001 

MTSROI 

OOOnoi 

N$$NCT= 

999991 

HSSDIE 

000003 

MTSSEC 

OOOUOO 

N$$PEM= 

00000 

HSSDUfI 

000001 

MTSSGD 

000020 

P$$P15= 

000000 

MSSFAl 

000013 

MTSSYS 

000002 

P$$WRD= 

000000  - 

MSSGLO 

000000 

MTSTER 

000001 

Q$$OPT= 

000010 

HSSHOL 

000002 

MTSTRI 

000002 

R$$DER= 

000000 

MSSINA 

000002 

HTSTYP 

007777 

R$$K11= 

099991 

MSSLOA 

000003 

MTSUSD 

000000 

R$tSND= 

000000 

MSSLOO 

000002 

MT$X25 

000003 

R$$11M= 

000000 

HSSOFF 

000001 

MUSINC 

000001 

SFSANM 

000001 

MS$ON 

000000 

MUSOUT 

000002 

SFtDNM 

99999? 

MSSPRO 

000006 

HUSPER 

000000 

SS$URG= 

000000 

MSSREA 

000001 

MVSIII 

000000 

S$$YSZ= 

007600 

MSSREF 

000001 

MVSIV 

000001 

T$$KMG= 

099999 

MSIRES 

000003 

MXSACT 

000020 

TSSCIN^ 

ocoooo 

MSSRST 

000001 

MXSCIR 

000020 

V$tCTR= 

001000 

MSSRSX 

000002 

MXSCLN 

000020 

X$$DBT= 

000000 

NSSRT 

000005 

MXSCNM 

000006 

ISAVRG^ 

******  G 

MS$SER 

000002 

MXSCON 

000006 

$$$SYS= 

001371 

MSSSHU 

000002 

MXSDAC 

000020 

$$$SYX= 

000000 
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DISPATCH  TABLE  ENTRY 

65  .SBTTL  DISPATCH  TABLE  ENTRY 

67  ;  GENERATE  AN  ENTRY  IN  THE  DISPATCH  TABLES  OF  THE 

68  ;  LINE  AND  CIRCUIT  READ  COUNTER  MODULES. 

70  '       .IF  DF  R$$i1S  1  SStBAS  I  R$$RTR  I  R$$PRO 

71 
72 

74  .WORD   *RDA,DALIN  ;  READ  LINE  COUNTERS  ENTRYPOINT 

75 

76 

78  .WORD   *RDA,DACIR  ;  READ  CIRCUIT  COUNTERS  ENTRYPOINT 

79 

80 

81 

82 


.IF  DF 

R$$11S  1  S 

.PSECT 

$$DLLO 

.WORD 

*RDA,DALIN 

.PSECT 

$$DLCO 

.WORD 

*RDA,DACIR 

.PSECT 

.ENDC 

E  8 
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CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  READ  AND  ZERO  DCP  COUNTERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-li"1-Plus  V3.0 
DECnet-licro/RSX  Vl.O 


OF      ITS 


CREATED  BY     MACHO     ON  c-)-jm-&5   AT   12.21 


DCPCOU 
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SYMBOL  VALUE 


R$$PRO 
R$$RTR 
R$$11S 
SE.IRS 
SE.NRS 
SE.RBS 
SE.RBU 
SE.RCH 
SE.RDC 
SE.RRR 
SE.SBS 
SE.SBU 
SE.SDC 
SE.SHC 
SE.SRR 
S$$BAS 
S.DLCF 


S.NKRB 
S.NKRW 
S.NKS8 
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S.REPR 
S.REPS 
S.SELC 
S.SELT 
S.TIMC 
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r  ****** 
=  ****** 
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=  000020 
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=   ****** 

000102 
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000051 
000046 
000072 
000056 
000050 
000047 
000066 
000053 
000054 
000076 
000062 
=  ****** 

=  OluOOO 
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000000 
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.TITLE  DLCCOU  -  READ  AND  ZERO  DLC  PROCESS  COUNTERS 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1982,  1983,  1984,  1985  BV 
DIGITAL  CQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

This  software  is  furnished  under  a  license  and  may  be  used  and  copied 
only  in  accordance  with  the  terms  of  such  license  and  with  the 
inclusion  of  the  aboue  copyright  notice.  This  software  or  any  other 
copies  thereof  may  not  be  provided  or  otherwise  made  available  to  any 
other  person.  No  title  to  and  ownership  of  the  software  is  hereby 
transferred. 

The  information  in  this  software  is  subject  to  change  without  notice 
and  should  not  be  construed  as  a  commitment  by  Digital  Equipment 
Corporation. 

Digital  assumes  no  responsibility  for  the  use  or  reliability  of  its 
software  on  equipment  which  is  not  supplied  by  Digital. 
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LSTSZ 

LSTYP 

LSUNT 

L$$ASG= 

L$$DRV= 

L$$P11= 

Lt$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NMST 

L.NSTA 

L.OUNR 

L.UNT 

HBSDIS 

MBIENA 

MBSFUL 

MBSMIX 

MBSONE 

MBSRXO 

HBSTXO 

MBSZER 

MCSBAB 

MCSBID 

MCSBMC 

MCSBSC 

MC$CAC 

MCSCAP 

MCSCCL 

MCSCDC 

MCSCDP 

HCSCIF 

MCSCLD 

MCSCOU 

MCSCTL 

MCSCTR 

MCSCTS 

MCSDOV 

MCSLBR 

MCSLBS 

MCSLDI 

MCSLDO 

MCSLDR 

MCSLDS 

MCSLLB 

i1C$LLP 

MCSLLR 

NCSLOO 


000070 
000063 
000003 
000000 
000000 
000001 
000000 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
OOOOU 
000021 
000013 
000001 

ooocoo 

000002 
000002 
000001 
000001 
000000 
000000 
U06073 
001765 
001767 
001766 
00UA2 
00U40 
00UA5 
0O2M5 
00U41 
00U65 
00U6A 
100000 
001454 
001452 
001453 
002050 
001750 
001751 
001774 
001775 
001762 
001763 
002021 
002115 
002007 
000001 


HCtLRB 

MCSLRP 

MCSLRR 

MCSLSI 

MCSLST 

MCtLUP 

MCSMAP 

MCSMBL 

HCSMBX 

HCSHBY 

MCIMPX 

MCSNAP 

NCSNBR 

MCSNBS 

MCSNCP 

MCtNCS 

MCSNML 

HCSNMR 

MCSNMS 

MCSNNO 

MCSNNU 

MCSNOP 

MCSNOR 

MCSNPF 

HCSNPR 

MCSNRE 

MCSNRT 

MCSNVR 

HC$P08 

MC$P11 

MCSRFL 

MCSSBU 

MCSSFL 

MCSSVC 

HCSSYL 

riC$SYR 

MCSSYS 

MCSSYZ 

MCSTBR 

HCSTBS 

MCSTDR 

MCSTIM 

MCSTYP 

MCSUBU 

MCSUFD 

HC$UHR 

MC$UMS 

MCSVAX 

MCSUID 

HCSWIH 

MCSWIL 

MC$U08 

/«IC$W16 

MC$W32 

HCSXBR 

HC$XBS 

MCSXCJ 


002020 

002114 

002006 

002032 

002033 

006072 

010000 

001764 

004420 

001752 

004406 

001604 

001130 

001131 

001154 

001155 

001274 

001142 

001143 

001606 

001605 

001607 

000000 

001616 

001630 

001200 

001166 

001642 

000000 

000001 

002046 

002051 

002044 

000012 

000036 

000050 

000024 

000000 

001140 

001141 

002053 

000000 

007777 

002052 

002047 

001132 

001133 

000003 

060000 

040000 

020000 

020000 

040000 

060000 

001750 

001751 

000322 


MC$XCR 

MC$XCS 

MCSXDR 

MCSXDS 

MCSXFR 

MCSXFS 

MC$XLJ 

HCSXLR 

MCSXHA 

HCSXMC 

MCSXMS 

MC$XNR 

MCSXRC 

MCSXRR 

HCSXRS 

MC$020 

MD$CI 

MDSCNA 

MDSCOU 

MDSDA 

HDSDL 

MDSDLV 

HDSDHC 

MDSDHF 

MD$DMP 

MDSDMR 

HDSDMV 

MD$DN 

WDSDP 

MDSDPV 

HD$DQ 

MDJDTE 

MD$DU 

MDSDUP 

MD$DV 

MD$DZ 

MDSFUL 

HDSHAL 

MDSHEL 

MDSKCP 

MDSKDP 

MDSKDZ 

MDSKL 

MDSKMX 

MDJKMY 

MDSLEN 

MDSPCL 

MDSQNA 

MDSUNA 

HDSWIT 

MD.ABD 

MD.ACC 

MD.AOB 

MD.BOB 

MD.DIA 

MD.DOB 

MD.DUH 


002260 

002261 

001762 

001763 

002272 

002273 

000323 

002330 

000310 

002305 

002304 

002332 

002316 

002331 

002342 

000002 

000007 

000003 

000001 

000010 

000004 

000020 

000014 

000046 

000022 

000050 

000042 

000016 

000000 

000044 

000006 

000024 

000002 

000012 

000026 

000030 

000000 

000001 

000002 

000013 

000034 

000036 

000040 

000054 

000052 

000050 

00001 1 

000005 

000001 

000002 

000017 

000010 

000016 

000011 

000007 

000015 

000002 


MD.FAI 
MD.FNA 
MD.F08 
MD.LOA 
MD.LSH 
MD.NOB 
HD.NON 
MD.PER 
MD.RES 
MD.R08 
MD.RSH 
MD.SDU 
MD.SLO 
MD.SNA 
MD.TLO 
MD.UNA 
MD.UNR 
MP.UOB 
Ht.VOL 
ME$ALI 
HE$AL2 
MESARE 
MESCIR 
MESEXA 
MESEXE 
HESLIN 
HESLOG 
HESMOD 
MESNOD 
MEINON 
ME SOB J 
l»IE$0B2 
MESPRO 
MESSYS 
ME.BLO 
ME. CON 
ME.CST 
ME.DIS 
ME. DON 
ME.FCO 
ME.FIO 
ME. FOP 
ME. FOR 
ME. FUN 
ME.6R0 
ME.HAR 
ME.IID 
ME.LCO 
ME.LPR 
ME.MPR 
ME.MVE 
ME. CPE 
ME.PLO 
ME.PMI 
ME . PNA 
ME.PRI 
ME.PTY 


000014 
000001 
000006 
000001 
000020 
000012 
M7777 
000000 
000004 
000005 
000013 
000005 
000003 
000000 
000004 
000002 
000003 
000007 
000006 
000010 
000003 
000005 
000003 
000000 
000200 
000001 
000002 
000004 
000000 
177777 
000007 
000004 
000005 
000006 
177744 
177753 
177765 
177755 
1 77600 
177762 
177756 
177763 
1 77776 
177777 
177745 
177750 
177767 
1 77766 
177757 
177773 
177771 
177747 
177751 
177743 
177752 
177775 
177772 


ME.PVA 
ME. RES 
ME.ROO 
HE.SIZ 
HE. SYS 
ME.UCO 
MF$ACT 
MFSADO 
MF$ADJ 
MFSALL 
MFSBYE 
MFSCHA 
MFSDUM 
MFSEVT 
MFSFUP 
MFSKNO 
MFSLOA 
MFSLOO 
MF$REA 
MFSSIG 
MFSSPF 
MFSSYS 
MFSTES 
MFSTRA 
MFSTRI 
MFSZER 
MLiALL 
MLSCLS 
MLSCON 
MLSEXT 
MLSFIL 
MLSFIR 
MLJINT 
MLSKNO 
MLSMON 
HLSSYS 
HLSTOP 
MNSUNL 
MOSACC 
MOSADD 
MOSALA 
MOSALI 
MGICHA 
MOSCIR 
MOSCLE 
MOSCOU 
MOSDAC 
MOSDEF 
MOSDPR 
MOSENT 
MOSEVE 
MOSINF 
MOSINS 
MOSLIN 
MOSLOG 
MOSMIR 
MOSNAM 


177760 
177761 
177754 
177774 
177746 
177770 
177776 
000000 
177774 
177775 
000300 
000023 
000020 
000001 
000264 
177777 
000017 
177775 
000024 
177773 
000302 
000026 
000022 
000301 
000021 
000025 
100000 
000000 
000001 
000001 
000002 
000000 
000000 
140000 
000003 
000002 
000001 
000377 
000200 
000002 
000004 
000000 
000040 
000003 
000100 
000060 
000000 
000000 
000000 
000017 
000100 
000160 
000002 
000001 
000001 
000031 
000001 
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63 
M 
65  000000 


000020 


000000 
000020 


000000 
000000 
000002 
000003 
00000^ 

000020 
000040 
000041 
000042 
000044 
000046 
000050 
000052 
000053 
000054 
C00055 
000056 
000060 
000062 
000063 
000064 
000066 
000067 
000067 
000070 
000070 
000070 
000072 
000110 
000112 
000114 
000116 
000120 
000122 
000124 
000000 


000124 

000000 
000001 


000020 


000000 


.SBTTL  CONTEXT  AREA  DEFINITIONS 
CIRCXS  LIST 
CONTEXT  AREA  OFFSET  DEFINITIONS 


.ASECT 
.  =  0 
LSNLEN 


16. 


MAXIMUM  NAME  LENGTH 


The  offsets  L$NAM  to  LSPDV  inclusive  must  appear  in  the  same  order 
as  in  the  CIRCXS  and  LOCCXS  macros. 


LSNAH 
LSDDM 
L$CTL 
L$UNT 
L$PVC 

L$SCN 

L$TRB 

L$PFG 

LSSLT 

L$NXT 

LJSNM 

LSTPT 

L$TNM 

L$CTS 

LSCHN 

LSPDV 

LSMSG 

L$8UF 

LSOPT 

LSTYP 

LSFLG 

LSSLEN 

LSPRO: 

lSMTYP 

LSTSZ 

LSLTM 

LSFLX 

LSSCR 

LSADJ 

LSNOD 

LSCOU 

L$PL8 

LSPAR 

LSSYL 

LSlEN 


.BLKW  1 
.BLKB  1 
.BLKB  1 
.BLKW  1 
.  =  0+L$NLEN 
.BLKB   LSNLEN 


.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKW 
.BLKB 


.BLKB   1 


.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.PSECT 


DEVICE  NAME 

CONTROLLER  NUMBER 

UNIT  NUMBER 
.  3RD  WORD  OF  PVC  NAME 
SPACE  FOR  EXPANDED  CIRCUIT  NAME 

;  CURRENT  NAME  IN  WILDCARD  SCAN 
TRIBUTARY  NUMBER 
PARSE  FLAGS 

Current  SLT/PVC  address 
Pointer  to  next  SLT/PVC  adlress 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  (-1  for  PSD 
REMAINING  NUMBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channel  number  /  X.25  port  number  and 
. . .  PDV  assigned 
ERROR  MESSAGE  STRING  POINTER 
SAVED  BUFFER  HOINTER 
SAVED  OPTIONS  BYTE 
LINE-ID  FORMAT  TYPE 
FLAG  WORD 

Significant  length  of  circuit  name 
Line  protocol 

Network  management  circuit  type 
Block  size  for  transport  circuits 
Listen  timer  for  transport  circuits 
Flags  word  for  X.25  circuit  commands 
SCRATCH  BUFFER 

Pointer  to  adjacency  database 
Adjacent  node  address 
Count  of  adjacency  entries 
PLB  address 
PARAMETER  TYPE 
System  line  number 
LENGTH  OF  CONTEXT  AREA 


OFFSETS  INTO  SCRATCH  BUFFER  (LSSCR)  FOR  DMC  BASE  TABLE  COUNTERS 


B$5: 
BS6: 


.ASECT 
.=0 

.BLKB   1 
.BLKB   1 


BASE  TABLE 
BASE  TABLE 
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SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 
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LF.PAC 

LF.RDY 

LF  .RfA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

IN. OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LPSMPT 

LPSMUX 

LPSTRB 

LPSUNT 

LPSWCN 

LPSWDV 

LPSWLD 


000200 
040000 
010000 
00C040 
000010 
020000 
000000 
000000 
000005 
OOOOO'i 
OOOOOi 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
100017 
000360 
000006 
000010 
000004 
000002 
000001 
000040 
000020 
000360 


REFERENCES 

#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#7-65 
#7-65 
#7-65 
#7-65 
#7-65 
#7-65 
#7-65 


11-151 


7-65 
7-65 


LPSWTR 

=  000200 

#7-65 

7-65 

LPSWUN 

=  000100 

#7-65 

7-65 

LSADJ 

000110 

#6-65 

LSBUF 

000060 

#6-65 

LSCHN 

000054 

#6-65 

L$C0U 

000114 

#6-65 

L$CTB 

OOOC53 

#6-65 

LSCTL 

000002 

#6-65 

LSDDM 

000000 

#6-6"; 

L$FLG 

000064 

#6-65 

L$FLX 

000070 

#6-65 

L$LEN 

000124 

#6-65 

L$LTH 

000070 

#6-65 

LSMSG 

000056 

#6-65 

LSMTYP 

000067 

#6-65 

LSNAM 

000000 

#6-65 

LSNLEN 

=  000020 

#6-65 

6-65 

6-65 

L$NOD 

000112 

#6-65 

L$NXT 

000044 

#6-65 

LSOPT 

000062 

#6-65 

LSPAfi 

000120 

#6-65 

LSPDV 

000055 

#6-65 

LSPFG 

000041 

#6-65 

L$PLB 

000116 

#6-65 

DLMCOU 
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DLXQIO  -  ISSUE  I/O  TO  DLX       MACRO 
DLXQIO  -  ISSUE  I/O  REQUEST  TO  NX: 

91 

92 

93 

9A 

95 

96 

97 

98 

99 
100 
101 
102 
103 
lOA 
105 
106 
107 
108 
109 

110  000026 

111  000026 
112 
113 
IK 
115 
116 
117 

118  000032  010A03 

119  000034  062703  000166 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 

130  000040 
131 
132 
133 
134 
135 
136 
137 

138  000042 
139 
140 
141 

142  000046 

143  000050  112302 
144 
145 
146 
147 


D  15 
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.SBTTL  DLXQIO  -  ISSUE  I/O  REQUEST  TO  NX: 

*»-DLXQIO-ISSUE  I/O  REQUEST  TO  DLX 

THIS  ROUTINE  IS  CALLED  TO  ISSUE  A  DLX  REQUEST. 

INPUTS: 

RO  =  FUNCTION  CODE 
R1  =  PI  (CPTIONAl  ) 
R4  =  ADDRESS  OF  CONTEXT  BLOCK 

OUTPUTS: 

IF  CC,  OPERATION  SUCEEDED  _,  , 

ELSE,  OPERATION  FAILED,  ERROR  CODE  FILLED  INTO  DLXHSG  STRING 

per  I  SIFRS  ' 

NO  REGISTERS  MODIFIED 


SAVE  ALL  REGISTERS 


DLXQIO:: 

CALL 

SSAVAL 

;  FORMAT  LINE-ID  STRING  FOR  DLX 

.IF  NDF 

M$$ACP 

MOV 
ADD 

R4,H3 
#L$SCR,R3 

.IFF 

;NDF  M$$ACP 

MOV 
MOV 
ADD 
ADD 

CURCTX,fl3 

R3.R5 

#C$L0C,R3 

#C$STAT,R5            ; 

.IFTF 

;NDF  M$$ACP 

SAVRG 

<R3> 

.IF  DF 

S$$BAS  1  R$$RTR 

CALL 

FMTLN2 

.IFF 

CALL 

FMTLIN 

.ENDC 

;  DF  S$$BAS  1  R$$RTR 

RESRG 
MOVB 

<R3>                ; 
(R3)+,R2             ; 

)  ISSUE  I/O 

.IFT 

;NDF  M$$ACP 

COPY  THE  CONTEXT  AREA  POINTER 
POINT  TO  THE  SCRATCH  BUFFER 


COPY  THE  CONTEXT  AREA  POINTER 

POiNT  TO  THE  SCRATCH  BUFFER 
...  AND  THE  I/O  STATUS  BLOCK 


SAVE  R3 


FORMAT  PHYSICAL  LINE-ID 


;  FORMAT  A  LINE-ID  STRING 


RESTORE  LINE-ID  POINTER 
GET  STRING  LENGTH 


niXQIO  -  ISSUE  I/O  TO  DLX 


E  15, 
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DLXAST  - 

MACRO  CALLS  AND  LOCAL  DATA 

55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 


.S8TTL  MACRO  CALLS  AND  LOCAL  DATA 

•  MACRO  LIBRARY  CALLS 

.MCAuL  SAVRG,RESRG.CKCX$ 

.MCALL  ALUN$§,WSIGtS,QIOW$S,QIO$S,GLUN$S 

■    LOCAL   DATA 

.IF  i.JF  MSSACP 

lOSB;   .BLKW  2 

.ENDC  ;NDf  M$$ACP 


I/O  STATUS  BLOCK  FOR  DLX  010 


ni  xa<;t 
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MACRO  CALLS  AND  LOCAL  DATA 


!2:18  Page  5 


5^ 
55 
56 

58 
59 

60 

61  000000 

62  000000 

63  000000 

64  000000 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
MACRO  LIBRARY  CALLS 

.HCALL  MANDF$,PDVDf$,SLTDF$,CIRCXI 


C]RCX$ 
MANDFS 
PDVDFS 
SLTDFS 


DEFINE  CONTEXT  AREA 

DEFINE  NETWORK  MANAGEMENT  SYMBOLS 

DEFINE  PDV  OFFSETS 

DEFINE  SLT  OFFSETS 


F  1 
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ucTrnr     nnrrriMC 


E  2 
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MACRO  CROSS  REFERENCE  CREF   OA.OO 

7-137     8-188 


MACRO  NAME 

REFERENCES 

CALL 

7-116 

7-125 

CIRCXI 

#5-58 

5-61 

•lANDFS 

#5-58 

5-62 

=DVDF$ 

#5-58 

5-63 

RETURN 

7-165 

8-213 

SLTDFS 

#5-58 

5-6A 

F  2 
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SETNAM  -  Set  an  image  name  field 


455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
463 
469 
470 
471 
472 

473  001330 

474  001330 

475  001332 

476  001336 

477  001340 

478  001342 

479  001344 

480  001346 

481  001350 

482  001352 

483  001354 

484  001360 

485  001362 

486  001364 
487 

488 
489 
490 


.SBTTL  SETNAM  -  Set  an  image  name  field 
y 
*«-SETNAM-SET  AN  IMAGE  NAME  FIELD 

THIS  ROUTINE  BUILDS  AN  IMAGE  NAME  FIELD,  DELETING  TRAILING 
SPACES. 

INPUTS: 

RO  =  'POINTER  TO  6  CHAR  SPACE-FILLED  NAME 
R3  =  ADDRESS  OF  NEXT  BVTE  IN  OUTPUT  BUFFER 

OUTPUTS: 

R3  =  ADDRESS  OF  NEXT  BYTE  IN  OUTPUT  BUFFER 

REGISTFRS: 

R4,  R5  ARE  PRESERVED 


010302 
112723 
112023 
112023 
112023 
112023 
112023 
112023 
105312 
124327 
001774 
005203 


SETNAM: 


000007 


000040 


10$: 


MOV 

Move 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

DECS 

CMPB 

BEQ 

INC 

RETURN 


.IF  DF  R$$11S 

.PSECT 

.ENDC 


R3,R2 

#7  'R3)+ 

(RO)+,(Ri;t 

(R0)+,(R3)t 

(R0)+,CR3)+ 

(R0)+,(R3)+ 

{R0)+,(R3)+ 

(R0)+,(R3)+ 

(fi2) 

-(R3),#' 

10$ 

R3 


COPY  BUFFER  POINTER 
ASSUME  NAME  IS  6  CHARS 
SET  NAME  IN  BUFFER 


DEC  FIELD  COUNT 
IS  THE  LAST  CHARACTER  A  SPACE 
IF  EQ,  "ES  -  DELETE  IT 
ELSE,  SKIP  OVER  IT 
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CREF   OA.OO 


SYMBOL  VALUE 


SPACE 

STATBL 

SUBTBL 

SSPUNX 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OUNR 

TEMP 

X$$MCB 

ZF.COU 

ZF.DDM 

ZF.DIA 

ZF.OLC 

ZF.DVP 

ZF.INI 

ZF.KMX 

ZF.LLC 

ZF.LMC 

ZF.MAN 

ZF.MFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN 

Z.LLN 

Z.HAP 

Z.NAH 

Z.PCB 

Z.SCH 

SCEACC 

SHEAOR 

$MUL 


-  OOOOAO 
000000  I 
000005  I 

=  000006 
000001 
000000 
000004 
000002 
000003 
000050  I 

=  001000 

=  000001 

=  004000 

=  000002 

=  100000 

=  040000 

=  000020 

=  000004 

=  000100 

=  020000 

=  000010 

=  000400 

=  000040 

=  002000 

=  010000 

=  000200 

=  000000 

=  100000 

=  140000 

000014 

000016 

000000 

000010 

=  000016 

000006 

000020 

000004 

000012 

000007 


GX 
GX 
GX 


REFERENCES 

u:  -75 

#6-89 

#6-103 

#13-548 

#5-67 

#5-67 

#5-67 

ll5-'o7 

#5-67 

#6-133 

5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 

13-566 

9-381 

7-195 


7-190 
7-197 
13-560 

7-224 

r-182 

»7-257 
5-65 


*7-^79 


«8-330 


10-449 


10-450 


8-323 
5-65 


9-361 
8-322 


12-513 
9-359 


12-523 


13-572 


CIREST 
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CIRMAP  ■ 

■  CIRCUIT  CHANGE 

MAPPING 

MACRO  V05.0 

Symbol  table 

A$$CHK= 

000000 

LF.LPB= 

001000 

A$$CPS= 

000000 

LF.MDC= 

000100 

A$$PRI= 

000000 

LF.MFL= 

004000 

A$$TRP= 

000000 

LF.MTP= 

0999^5 

BF.TRC= 

000004 

LF.PAC= 

000200 

C$$CKP= 

000000 

LF.RDY= 

040000 

C$$ORE= 

OOOAOO 

LF.REA= 

010000 

C$$RSH= 

177564 

LF.SER= 

000040 

DF.CRC= 

000010 

LF.TIM= 

000010 

0F.FOC= 

000020 

LF.UNL= 

020000 

DF.RAN= 

000040 

LF.X2P= 

000000 

DF.UNK= 

000100 

LN.CLO= 

000000 

Dt$BUG= 

1775U 

LN.DUH= 

000005 

D$SISIC= 

000000 

LN.L0A= 

000004 

o$$Ln  = 

000001 

LN.LOO= 

000003 

D$$YNC= 

000000 

LN.OAU= 

000003 

D$tYNM= 

000000 

LN.0FF= 

000001 

E$$XPR= 

000000 

LN.ON  = 

000000 

FNDDCP= 

******  GX 

LN.00P= 

000004 

FNDDMP= 

♦♦«♦*«  GX 

LN.OPE= 

000001 

FNDPCL= 

******  GX 

LN.REF= 

000002 

F$$LVL= 

000001 

LN.SER= 

jO^.D2 

G$$TPP= 

000000 

LN.STA= 

000017 

G$$TSS= 

ooocoo 

LN.SUB= 

000360 

G$$TTK= 

000000 

LN.TRI= 

000006 

G$SURD= 

000000 

LPSHPT^ 

000010 

I$$RAR= 

000000 

LP$MUX= 

000C04 

I$$RDN= 

000000 

LP$NXC= 

100000 

I. OFF  = 

000024 

LP$TRB= 

000002 

KISAR6= 

******  GX 

LP$UNT= 

000001 

K$$rNT= 

177546 

LP$UCN= 

000040 

K$$CSR= 

177546 

LP$WDV= 

000020 

K$$LDC= 

000000 

LP$WLD= 

000360 

K$$TPS= 

000074 

LP$UTR= 

000200 

LCSEXT 

000000 

LP$WUN= 

000100 

LCtINT 

000001 

LS$ACT= 

000040 

LC$NTL= 

000200 

LS$BBT= 

010000 

LC$OWN= 

000400 

LS$BLK= 

001000 

LD$LP  = 

000000 

LS$BSA= 

000001 

LE.NRH= 

000200 

LS$BSD= 

000002 

LE.NRO= 

000001 

LS$BSI= 

000004 

LE.NSH= 

000002 

LS$CHN= 

000001 

LE.NSO= 

000020 

LS$CMB= 

000002 

LE.RCO= 

000040 

LSSCOS": 

000004 

LE.SAE= 

000004 

LS$CUS= 

000004 

LE.STT= 

000010 

LS$DDT= 

001000 

LE.XTU= 

000100 

LS$DEA= 

000100 

LF$MLT= 

040000 

LS$DLM= 

001004 

LF$REA= 

000001 

LS$DLT= 

002000 

LF$SEG= 

100000 

LS$DTE= 

000010 

lf$sk;p= 

000004 

LS$HBT= 

000400 

LF$VR2= 

OOOQiO 

LS$HTM= 

010000 

LF$ZFR= 

000002 

LS$INA= 

000010 

LF.ACT= 

100000 

LS$IND= 

000020 

LF.BRO^ 

000400 

LS$INI= 

000040 

LF.SWT= 

0CC0O7 

LS$LrT= 

020000 

LF.FNA= 

002000 

LS$LMB= 

000002 

lurday 

29-Jun-85  ^2;19 
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1 

LS$LOO= 

040000 

L$LTM 

000230 

L.DDS 

000004 

LS$MDT= 

020000 

L$MRT 

000253 

L.DISL 

000042 

LS$MRT= 

000020 

L$MSG 

000056 

L.DISR 

99991^ 

LS$MWN= 

000040 

LSMTYP 

000075 

L.DLC 

999991 

LS$MXB= 

001000 

LSMWN 

000252 

L.DLM 

000006 

LS$HXR= 

000020 

LSHXB 

000133 

L.DLS 

000010 

LS$nxw= 

000040 

L$MXR 

L.ENA 

999966 

LS$NHT= 

020000 

L$MXW 

000252 

L.FLG 

000000 

LS$NOR= 

100000 

LSNAH 

000000 

L.KRBA 

000016 

lS$NTI= 

000200 

L$NLEN= 

000020 

L.LEN  = 

000022 

LS$NTL= 

000001 

L$NHT 

000116 

L.LNUM 

0999^6 

LS$NUM= 

000100 

LSNTI 

000256 

L.MPF 

9999?? 

LS$OWN= 

000010 

LSNTL 

000134 

L.NAST 

000065 

LS$PLT= 

004000 

L$NUH 

000240 

L.NCUB 

000012 

LS$PRO= 

010000 

L$NUML 

000236 

L.NCUL= 

000050 

LS$PVC= 

020053 

L$NXT 

000044 

L.NIP 

000010 

LS$RET= 

000200 

L$0PT 

000062 

L.NLSE 

000054 

LS»SER= 

100000 

LSOWN 

000102 

I .NMST 

000020 

LS$STA= 

000002 

LSPAR 

000072 

L.NRSE 

099955 

LS$SVC= 

000362 

LSPDV 

000055 

L.NSTA 

000014 

LS$TAD= 

000020 

LSPFG 

000041 

L.OWNR 

000021 

LS$TH1= 

000100 

L$PLT 

000112 

L.PAIC 

000017 

LS$TH2= 

000200 

L$PRO 

000075 

L.PAIR 

000016 

LS$TH3= 

000400 

LSPVC 

000004 

L.PLD 

000047 

LS$XMT= 

040000 

LSRET 

000256 

L.PLL 

000012 

LSACT 

000104 

LSSCN 

000020 

L.SCFW 

000056 

L$BBT 

000114 

L$SCR 

000166 

L.STA 

000063 

L$BLK 

000262 

L$SER 

000230 

L.STBL 

000070 

L$BSA 

000122 

LSSLEN 

0000^4 

L.STRC 

000050 

L$BSD 

000123 

L$SLT 

000042 

L.STRM 

000051 

L$BSI 

000124 

LSSNH 

000046 

L.STS 

000002 

L$BUF 

000060 

L$STA 

000100 

L.ST2 

000003 

L$CHN 

000054 

LSTAD 

000103 

L.TBP 

000004 

L$CMB 

00)234 

LSTHI 

000130 

L.TIMC 

000060 

L$COS 

000101 

L$TH2 

000131 

L.TIHI 

000001 

LSCTB 

000053 

L$TH3 

000132 

L.TIHR 

000000 

L$CTL 

000002 

LSTNM 

000052 

L.TOR 

000064 

LtCUS 

000260 

LSTPT 

000050 

L.UNT 

000013 

L$DDM 

000000 

L$TRB 

000040 

L.XSET 

000020 

L$DDT 

000106 

LSTYP 

000063 

MBSDIS 

000001 

L$DEA 

0001C5 

L$UNT 

000003 

MBIENA 

000000 

LSDLT 

000110 

L$XCH 

000232 

MBSFUL 

000002 

LSDTE 

000240 

L$XMT 

000120 

MBIMIX 

000002 

LSDFEL 

000236 

L$$ASG= 

000000 

MBJONE 

000001 

LSDTEP 

000250 

L$$DRV= 

000000 

MBSRXO 

000001 

L$FLG 

000064 

L$$P11= 

000001 

MBSTXO 

000000 

LSFLX 

000076 

L$$11R= 

000000 

HBSZER 

000000 

L$FL1 

000066 

L.SABL 

000062 

MCSBAB 

006073 

L$FL2 

000070 

L.BUFU 

000052 

MCSBID 

001765 

L$H8T 

000254 

L.CHA 

000034 

MCSBMC 

001767 

L$HTM 

000226 

L.CNTL 

000024 

HCSBSC 

001766 

L$INA 

000125 

L.COST 

000015 

MCSCAC 

001442 

L$IND 

000126 

L.CRC 

000030 

MC$CAP 

001440 

L$INI 

000127 

L.CRS 

000040 

MCSCCL 

001445 

LSLCT 

000224 

L.CTL 

000012 

MCSCDC 

002045 

L$LEN 

000264 

L.CVA 

177776 

MCSCDP 

001441 

LSLMB 

000234 

L.DDM 

000002 

MCSCIF 

001465 
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.UNW 
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.VFY 
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.X2CHB 

#5-66 

.X2CHW 
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.X3CHB 

#5-66 

.XSCHW 

#5-66 

MACRO  ON  29-JUN-85  AT  12:20 


5-66 


E  6 

PAGE  9 

CREF   OA.OO 


«»F1LE»«ID««C1ZEIN 


f  6 


E     7 

C12EIN  -  CIRCUIT  ZERO  COUNTERS     MACRO  V05.03b  Saturday  29-Jun-85  12:20     Page  6-5 
Symbol   table 

ABS.      000264         000        (RW,I ,GBL,ABS,OVR) 
000202         001        (RU,I,LCL,REL,CON) 
Errors   detected:      0 

♦•*  Assembler  statistics 

Work      file     reads:  209 

Work      file  writes:  U3 

Size  of  work   file:  28869  Words      (    113  Pages) 
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DACOU  - 
DATB?  - 

85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 


READ/AND  OR  ZERO  DA  COU  MACRO  V05.03b  Saturday  29-Jun-85  12:20  Pape  9 
DA  COUNTER  TABLES 


000000 
000004 


000006 
000012 
000016 
000022 
000026 


.SBTTL 

DA  TABLE  0  - 

6aTB0:  DLCOUS 
DLCOUS 

DA  TABLE  1  - 

DATBl : 


DATB?  -  DA  COUNTER  TABLES 

NETWORK  MANAGEMENT  LAVER  (DA  LINE  TABLE) 

0,16.,T.TLZ,R0        ;  SECONDS  SINCE  LAST  ZEROED 
END 

DATA  LINK  LAYER  (DA  LINE  TABLES) 


DLC0U$  1000.,32.,T.RCVB,RO 

DLCOUS  1001.,32.,T.XMTB,R0 

DLCOUS  1010.,32.,T.RCV,R0 

DLCOUS  1011.,32.,T.XMT,R0 

DLCOUS  END 


BYTES  RECEIVED 
BYTES  SENT 

DATA  BLOCKS  RECEIVED 
DATA  BLOCKS  StNT 


F 
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MACRO  CALLS  AND  LOCAL  DEFINITIONS 


49 

50 

51 

52 

53 

54 

55 

56  000000 

57 


.SBTTL  MACRO  CALLS  AND  LOCAL  DEFINITIONS 

MACRO  LIBRARY  CALLS 

.MCALL  SAVMAP,MAP,BIAS,RESMAP,SAVRG,RESRG,CALLR,DLCOU$ 

.MCALL  DDCDF$,CIRCX$ 


DDCDFS 


DEFINE  DDCMP  SYMBOLS 
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SYMBOL 

VALUE 

REFERENCES 

9-126 

#9-127 

9-127 

#9-133 

9-133 

#9-134 

SSUID 

=  020000 

#9-87 

9-87 

*2-g§ 

9-96 

#9-97 

9-97 

#9-109 

9-109 

#9-110 

9-119 

#9-124 

9-124 

PAGE  4 

CREF   04 

00 

#9-128 
9-134 
9-88 

#9-98 
9-110 

#9-130 

9-128 

#9-94 
9-98 

#9-114 
9-130 

#9-131 

9-94 

#9-103 

9-114 

9-131 

#9-95 

9-1C5 
#9-118 

#9-132 

9-95 

#9-108 

9-118 

9-132 

#9-96 

9-108 
#9-119 

DCPCOU 
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Macro  caUs  and  local  definitions 
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1,7 
^8 

50 
51 
52 
53 

54  000000 

55  000000 

56  000000 

57  000000 
58 


.SSTTL  Macro  calls  and  local  definitions 
Macro  library  calls 


.MCALL 
.MCALL 

CC8Df$ 
PDVDFS 
HANDfS 
SLTDFS 


CC8DF$,PDVDf$,MANDF$,RETC,HAP,SLTDF$ 
SAVHAP,RESHAP,8IAS,SAVRC,RESRG,CIRCX$ 


Define  CCS  offsets 

Define  PDV  offsets 

Define  Network  Ma'dgement  symbols 

Define  SLT  stuff 
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DLCCOU  -  READ  AND  ZERO  OLC  PRO  MACRO  V05.03b  Saturday  29-Jun-85  12;22 
Symbol  table 


Page  11-3 


MOSNIC 

MOINOD 

MOSOF  F 

MO$ON 

MOSOPT 

MOSPER 

MOSPRO 

MOSPRS 

MOSREA 

MOSSET 

MOSSTA 

MOSSUM 

MOSTSK 

MOSVOL 

HO$ZER 

HPSACB 

MPSACC 

MPSACT 

HPSADD 

MPSADJ 

MPSADP 

MPSADS 

MPSALB 

MPSAMC 

MPSAHH 

MPSANB 

MPSASB 

MPSASC 

MPSAUS 

MPSBBT 

MPSBDF 

MPSBFQ 

MPSBLK 

HPIBLO 

MPSBMX 

MPSBNP 

MPSBRT 

MPSBSA 

MPSBSD 

MPSBSI 

MPSBSP 

MPSBUF 

HPSBUP 

MPSBUS 

MPSCAC 

NPSCAS 

MPSCAT 

MPSCCS 

MPSCHN 

MPSCIR 

MPSCLK 

MPSCLN 

MPSCLT 

MPSCMB 

MPSCMK 

MP$CMX 

MPSCND 


000023 

000000 

000001 

000000 

000001 

000200 

000002 

000001 

000200 

000000 

000020 

000000 

000000 

000000 

000000 

000012 

0005U 

00A526 

000766 

00U40 

006325 

00A406 

000036 

0016-10 

001 6A1 

004A20 

00002A 

004432 

000512 

002165 

002164 

002121 

001616 

001452 

002176 

006330 

001620 

002176 

002203 

002200 

006331 

000170 

006324 

001643 

001750 

001762 

002210 

004406 

002141 

000144 

002131 

002126 

002211 

002142 

000537 

002153 

000310 


MPSCNU 

MPSCOB 

MPSCON 

MPICOS 

MPSCPF 

HP$CPL 

MPSCPT 

MPtCPlI 

MP$CSZ 

HPSCUS 

MPSCVA 

HP$DAL 

MP$OCO= 

MPSDDT 

MPtDEL 

MPtDES 

HPSDEV 

MPSDFA 

MP$DHO= 

HPSDIA 

MPSDLB 

MPSDLG 

MP$DLI= 

MPSDLT 

MPSDRO 

HPSDST 

MPSDTE 

HP$DTY= 

MPSDUA 

MPSDUC 

MPSDUM 

MPSDUP 

MPSDVC 

MPSDWE 

MPSELT 

HPSETY 

MPSEVE 

MPSFNC 

MPSGDT 

HPSGNM 

MPSGRO 

MPSGRP 

MPSGTY 

MPSHAD 

MPSHBT 

MPSHDD 

MP$HTM 

MPSHWA 

MPSIAT 

HP$IDE 

l"P$IDP 

h  $IHO 

MPSINA 

MPSIND 

HPSINI 

MPSITl 

MPSLAA 


001753 

000311 

002126 

001604 

000230 

000232 

000226 

000161 

001755 

002127 

000540 

002570 

001464 

002177 

001131 

000156 

002114 

001320 

001465 

000173 

002571 

004521 

001466 

002200 

001441 

000454 

002140 

001452 

000207 

000210 

000202 

002127 

002114 

001321 

000157 

001605 

000311 

001752 

002222 

002223 

002115 

000541 

002224 

001757 

002142 

000162 

001612 

002210 

001322 

000144 

006327 

000215 

002177 

002204 

002201 

000776 

000231 


MPtLAN 
MPSLAR 
MP$LAS 
MPSLBS 
MPSLCO 
MPSLCT 
MPSLHL 
HPSLLE 
MPSLLO 
MPSLMB 
I'lPSLHX 
MPSLNA 
MPSLNO 
MPSLOA 
MPSLOG 
MPSLOO 
MPSLTM 
MPILTy 
MPSLWI 
MPSMAC 
MPSHAD 
MPSMAP 
MPSMAR 
HPSHAV 
MP$M8N 
MPSMBR 
MPSHBU 
HPSHCB 
HPSMCO 
MPSMDE 
MPSMHO 
MPSHLB 
MPSMLK 
MPSMLN 
MPSMLP 
MPSMRS 
MPSMRO 
MPSMRP 
HPSHRT 
MPSMRV 
MPSMSB 
MPSMVE 
MPSMVI 
MPSMVR 
HPSMWN 
MPSMXB 
MPSMXC 
MPSMXR 
MP$MXW 
MPSNAA 
MPSNAC 
MPSNAP 
HPSNCT 
MPSNET 
HPSNLI 
MPSNNA 
MPSNOD 


000234 
000202 
000012 
000203 
000226 
000156 
000232 
000227 
004432 
002152 
002200 
000144 
000233 
000170 
004514 
000620 
001613 
004533 
O00230 
004420 
001630 
006323 
001635 
006321 
001636 
001637 
001642 
000156 
001632 
004421 
001633 
000202 
001306 
001631 
006333 
002171 
001605 
006322 
002153 
006320 
000170 
000145 
001634 

00 1 r;: 

002154 
002172 
000466 
001630 
002143 
006335 
001130 
006326 
000240 
002114 
000765 
000764 
000500 


nPSNRA 

MPSNRB 

MP$NSA 

MPSNTI 

MPSNUM 

MPSNVE 

MP$NXN= 

MP$0AC 

MPSOAM 

MPSOCO 

MPSOHO 

MPSONA 

MPJUNR 

MPSOQL 

MPSOTI 

MPIOTY 

MPIOUS 

MPtOVE 

MPSOUN 

MPSPAR 

MPSPAS 

MPSPCH 

MPSPCO 

MPtPCT 

HPSPDT 

MPSPHA 

MPSPHY 

MPSPLI 

MPSPLN 

HPSPLO 

MPSPMC 

HPSPNT 

MPSPRI 

MPSPRO 

MPSPSS 

MPSPST 

MPSRET 

MPSRFA 

MPSRHX 

HPSRPA 

MPSRPR 

MPSRRT 

MPSRST 

MPSRSV 

MPSRSZ 

MPSRTI 

MPSRTM 

HPSRVE 

MPSRVT 

MPSSAC 

MPISAD 

MPSSCA 

MPSSCO 

MPSSCT 

MPSSDU 

MPSSDV 

MPSSEH 


006334 
000214 
001617 
002141 
001642 
001274 
001476 
000632 
000620 
000776 
000214 
000764 
002114 
001453 
000777 
001022 
000777 
001010 
004374 
000036 
000513 
002152 
000024 
000144 
002114 
000170 
000012 
0000'5 
002140 
OOOOU' 
004374 
002126 
004411 
002130 
001763 
001762 
001631 
001323 
002201 
004374 
001606 
002213 
002212 
001754 
001756 
001616 
001611 
001604 
000156 
000514 
000543 
000310 
000144 
002176 
000203 
000160 
004401 


MPSSER 
MPSSET 
MPSSGZ 
MPISID 
MPSSIN 
MP$SL] 
HP$SL0 
MPSSHX 
HPSSND 
MPSSNP 
MPSSNU 
MPSSOB 
MPSSPA 
MPSSPR 
MPSSPS 
MPSSTA 
MPSSTI 
MPSSTT 
MPSSTY 
MPISUB 
MPISUR 
MPJSUS 
MPSSVR 
MPSSUI 
MPSSYP 
MPITFL 
MPSTHI 
MP$TH2 
MP$TH3 
MPJTLN 
MPSTLO 
MPSTPA 
MPSTRI 
MPSTST 
MPSTYP 
MPSUCS 
MP$USR 
MPSVEC 
MPIVER 
MPSWDF 
HPIWMX 
MPSXHT 
MPSXPF 
MPSXPL 
MPSXPT 
MPSXXX 
MP$5ST 
MSSACT 
MSSADU 
MSSALO 
i^SSASE 
■ISSATR 
HSSAUT 
MSSCLE 
MSiDED 
MSSDIE 
MSSDUM 


000144 
000000 
001644 
000176 
000310 
000156 
000171 
002202 
000500 
006332 
000542 
000524 
000157 
000536 
000513 
000000 
002140 
002201 
000175 
000001 
000156 
000512 
000163 
002260 
002424 
000156 
002206 
002205 
002202 
000202 
000172 
004375 
002164 
000144 
002130 
004407 
001750 
004410 
004406 
002165 
002177 
002166 
000242 
000244 
000240 
177777 
004406 
000001 
000010 
000007 
000006 
000011 
000000 
000003 
000004 
000003 
000004 
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DLMCOU  -  READ/AND  OR  ZERO  DLM  C  MACRO  V05.03b  Saturday  29-Jun-85 
CONTEXT  AREA  DEFINITIONS 

000002 
000003 
OOOOOA 
000005 
000006 

000000 


5  13 
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B$7: 

.BLKB   1 

B$10: 

.BLKB   1 

B$11: 

.BLKB   1 

B$12: 

.8LKB 

B$7S10; 

.BLKB 

.EVEN 

.PSECT 

BASE  TABLE  +  7 

BASE  TABLE  ♦  10 

BASE  TABLE  ♦  11 

BASE  TABLE  +  12 

SUM  OF  BASE  TABLE  7  AND  10 
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DLMCOU     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:23 
SYMBOL  CROSS  REFERENCE 


E  U 

PAGE  3 

CREf   OA.OO 


SYMBOL  VALUE 


L$PRO 

L$PVC 

L$SCN 

L5SCR 

LSSLEN 

L$SLT 

LSSNM 

L$SYL 

LSTNM 

L$TPT 

L$TRB 

L$T5Z 

L$TYP 

L$UNT 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 


,KRBA 
,LEN 


L.MPF 


_.NMST 

L.N5TA 

L.OWNR 

L.LINT 

MTSASC 

MTSCOD 

MTSMUL 

M$$MGE 

NSSVCT 

OSTRHD 

POVID 

QSSTN 

QSTIMZ 

R$$PRO 

R$$RTR 

R$$11D 

R$$nM 

R$$11S 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

5F.SER 

SF.SVC 


000067 
OOOOOA 
000020 
000072 
000066 
0000^2 
000046 
000122 
000052 
000050 
OOOOAO 
000070 
000063 
000003 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 

=  000022 
000022 
000020 
OOOOU 
000021 
000013 
000100 
000200 
000100 

=  000000 

■z      ****** 

000006 

=    ****** 

000002 
000036 

-  ****** 

-  ****** 
=:  **♦*  ^  * 

=  000000 

=      ****** 

=  000200 

=  000100 

=  000004 

=  000040 

=  000020 

=  000010 

=  000001 

=  000002 


GX 


REFERENCES 

#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 

5-57 

5-57 

5-57 

11-161 

10-108 

11-168 

11-154 

11-178 

9-86 

8-72 

8-72 

5-60 

5-60 

5-60 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 


11-150 


11-178 


11-156 
11-158 
11-159 
11-151 


5-57 

11-164 
10-123 


11-164 
8-72 


11-172 
11-158 


11-175 


11-175 
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DLXQIO  - 
DLXQIO  - 

H8 

U9 

150 

151 

152 

153 

15^ 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

17A 

175 

176 

177 

178 

179 

180 

181 

182 

183 

18A 


ISSUE 
ISSUE 


1/0  TO  DLX      MACRO  V05.03b  Saturday  29-Jun-85 
1/0  REQUEST  TO  NX: 


5  15 

12:2 
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000052  10$: 


10$: 


000116  103010 

000120  026727  OOOOOOG  OOOOOOG 

000126  001023 

000130 

000136  0007A5 

OOOKO  20$: 


OOOUO     116701     177634 


000U4  0030U 

000U6  012700  000020" 

000152  005002 

000154 

000160  0127C1  000005' 

000164  160100 

000166  110041 

000170  010164  000056 

000174  000261 

000176 


40$: 


0I0W$S 

.IFF 

QI0$$ 

■  IFTF 

BCC 

CMP 

BNE 

WSIG$S 

BR 

.IFT 

MOVE 

.IfF 

CALL 
MOVB 

.ENDC 

BGT 

MOV 

CLR 

CALL 

MOV 

SUB 

MOVB 

MOV 

SEC 

RETURN 


RO,#$TMLUN,#$TMEFN,,*IOSB,,<R3,R2,R1>  ;  ISSUE  I/O 
;NDF  M$$ACP 

R0,*$TMLUN,,,R5,#DLXAST,<R3,R2,R1>  ;  ISSUE  I/O 
;NDF  M$$ACP 


20$ 

$DSU,*1E.UPN 

40$ 

10$ 

;NDF  M$$ACP 

I0S8,R1 

;NDF  M$$ACP 

FORK 
STATUS, R1 

;NDF  M$$ACP 

40$ 

#DLXERR,RO 

R2 

$CBDSG 

#DLXTXT,R1 

RI.RO 

R0,-(R1) 

R1,L$MSG(R4) 


IF  CC,  DIRECTIVE  SUCCEEDED 
ELSE  WAS  IT  A  RESOURCE  ERROR 
IF  NE,  NO  -  REAL  ERROR 
ELSE,  WAIT  AROUND  A  WHILE 
AND  TRY  IT  AGAIN 


GET  STATUS  RETURN 


FORK  AND  WAIT  FOR  QIO  COMPLETION 
GET  THE  STATUS  RETURN 


IF  GT,  SUCCESS 

POINT  TO  ASCII  ERROR  CODE  BUFFER 

ENABLE  ZERO  SUPRESSION 

CONVERT  IT  TO  SIGNED  DECIMAL 

POINT  TO  ERROR  TEXT 

CALC  STRING  LENGTH 

SET  STRING  LENGTH 

SET  ERROR  MESSAGE  ADDRESS 

ELSE,   NO 


F  15 


it;^iiF   i/n  Tfi  n\  v 
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DLXAST 
CONTEXT 

72 
73 

75 


■  ISSUE  I/O  TO  DLX  AND  U  MACRO  V05.03b  Saturday  29-Jun-85 
AREA  OFFSET  DEFINITIONS 
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000000 


000000 


000000 
000020 


000000 
000000 
000002 
000003 
OOOOOA 

000020 
000040 
000041 
000042 
0000A4 
000046 
000050 
000052 
000''63 
000054 
000055 
000056 
000060 
000062 
000063 
000064 
000066 
000070 
000072 
000074 
000075 
000075 
000076 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000110 
000112 
000114 
000116 
000120 


000020 


.S8TTL  CONTEXT  AREA  OFFSET  DEFINITIONS 

•  CONTEXT  AREA  OFFSET  DEFINITIONS 

CICCXS  LIST 

;•  CONTEXT  AREA  OFFSET  DEFINITIONS 


.ASECT 
.  =  0 
LSNLEN 


16. 


;  MAXIMUM  NAME  LENGTH 


•  The  offsets  L$NAM  to  L$PDV  inclusive  must  appear  in  the  same  order 
;  as  in  the  CIRCXS  and  LOCCXS  macros. 


LINAM: 
L$DDM: 
L$CTL: 
L$UNT: 
L$PVC: 

L$SCN 

LSTRB 

LSPFG 

LSSLT 

L$NXT 

LISNM 

LSTPT 

L$TNM 

L$CTB 

L$CHN 

LSPDV 

LSMSG 

L$BUF 

L$OPT 

L$TYP 

LSFLG 

L$FL1 

L$FL2 

LSPAR 

LSSLEN 

L$PRO: 

LIMTYP 

LSFLX 

LSSTA 

LSCOS 

L$OWN 

LSTAD 

L$ACT 

LIDEA 

L$DDT 

L$DLT 

L$PLT 

LSBBT 

LSNMT 

L$XMT 


INLEN 


.BLKW 

.BLKB 

.o'KB 

.t  <W 

.  =  0+L$NLEN 

.BLKB 

.BLKB 

.BLKB 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKW 

.BLKW 

.BLKB 

.BLKB 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKB 

.BLKB 
.BLKW 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 


DEVICE  NAME 
CONTROLLER  NUMBER 
UNIT  NUMBER 
,  3RD  WORD  OF  PVC  NAME 
SPACE  FOR  EXPANDED  CIRCUIT  NAME 

CURRENT  NAME  IN  WILDCARD  SCAN 

TRIBUTARY  NUMBER 

PARSE  FLAGS 

Current  SLT/PVC  address 

Pointer  to  next  SLT/PVC  address 

REMAINING  NUMBER  OF  SYSTEM  LINES 

Current  tributary  pointer  (-1  for  PSD 

REMAINING  NUMBER  OF  TRIBUTARIES 

CURRENT  TRIBUTARY  NUMBER 

Channel  number  /  X.25  port  number  and 

...  PDV  assigned 

ERROR  MESSAGE  STRING  POINTER 

SAVED  BUFFER  POINTER 

SAVED  OPTIONS  BYTE 

CIRCUIT-ID  FORMAT  TYPE 

FLAG  WORD  (FOR  COMMAND) 

FLAG  WORD  (FOR  COMMAND) 

FLAG  WORD  (FOR  CURRENT  CIRCUIT) 

CURRENT  PARAMETER  TYPE 

Significant  length  of  circuit  name 

uine  protocol 

Network  management  circuit  type 

Flags  word  for  X.25  circuit  commands 

CIRCUIT  STATE 

CIRCUIT  COST 

CIRCUIT  OWNER  (PDV  INDEX) 

TRIBUTARY  ADDRESS 

MULTIPOINT  ACTIVE  RATIO 

MULTIPOINT  DEAD  RATIO 

DMP  DEAD  TIMER 

DMP  DELAY  TIMER 

DMP  POLL  TIMER 

DMP  BABBLE  TIMER 

DMP  NORMAL  TIMER 

DMP  TRANSMIT  TIMER 
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DISPATCH  TABLE  FOR  READ  PARAMETERS  OPTIONS 


66 

67 

66 

69 

70  000000 

71 

72  000000 

73 

7A  OOOOOA 

75  000010 

76  OOOOU 

77  000020 


.SBTTL  DISPATCH  TABLE  FOR  READ  PARAMETERS  OPTIONS 
DISPATCH  TABLE  FOR  READ  OPTIONS 


000040  OOOOOOG 


000060 
000020 
000000 
177777 


OOOOOOG 
OOOOOOG 
OOOOOOG 


DISTBL: 

.IF  NDF  R$$11S 

.WORD   MO$CHA,CIRECH 

.ENDC 

.WORD  MO$COU,C!RECO 
.WORD  HO$STA,CIREST 
.WORD  M0$SUH,C1REST 
.WORD   -1 


READ  CHARACTERISTICS 

READ/ZERO  COUNTERS 

READ  STATUS 

READ  SUMMARY  (SAME  AS  STATUS) 

END  OF  TABLE 
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rlDCnP  -  riBrnIT  BFAn  IMFnBMATinN  nPFRATF 


•«FILE«»ID**C1REST 


F  2 


cccccccc 

IIIIII 

RRRRRRRR 

EEEEEEEEEE 

SSSSSSSS 

TTTTT 

TTTTT 

cccccccc 

III  II 

RRRRRRR-I 

EEEEEEEEEE 

SSSSSSSS 

TTTTT 

Mill 

cc 

RR      RR 

EE 

SS 

cc 

RR      RR 

EE 

SS 

cc 

RR      RR 

EE 

SS 

cc 

RR      RR 

EE 

SS 

cc 

RRRRRRRR 

EEEEEEEE 

SSSSSS 

cc 

RRRRRRRR 

EEEEEEEE 

SSSSSS 

cc 

RR  RR 

EE 

SS 

cc 

RR  RR 

EE 

SS 

cc 

RR    RR 

EE 

SS 

cc 

11 

RR    RR 

EE 

SS 

cccccccc 

IIIIII 

RR      RR 

EEEEEEEEEE 

SSSSSSSS 

cccccccc 

IIIIII 

RR      RR 

EEEEEEEEEE 

SSSSSSSS 

SSSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

CIREST  -  READ  CIRCUIT  STATUS    MACRO  V05.03b  Thursday  25-Jul-85 


Us 


CIREST  -  READ  CIRCUIT  STATUS    t 

FNDPLD  -  Find  physical 

link  data 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504  001366 

505  001366 

506  001372 

012702 

114224 

507  001376 

508  001402 

103424 

509  001404 

12026^' 

000055 

510  001410 

001021 

511  001412 

067702 

OOOOOOG 

512  001416 

011202 

513  001420 

016205 

000016 

514  001424 

001413 

515  001426 

005765 

000020 

516  001432 

001410 

517  001434 

116401 

000054 

518  001440 

006301 

519  001442 

066501 

000020 

520  001446 

011166 

000004 

521  001452 

000405 

522 

523  001454 

524  001466 

525 

Js 
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.SBTTL  FNDPLD  -  Find  physical  link  data  base 
I- 
♦♦-FNDPLD-FIND  PHYSICAL  LINK  DATA  BASE  FOR  A  LINE 

INPUTS: 

R4  =  ADDRESS  OF  CONTEXT  BLOCK 

OUTPUTS: 

R1  =  ADDRESS  OF  PLD  FOR  THE  LINE 

IF  CS,  LINE  IN  NOT  OWNED  BY  TRANSPORT 


FNDPLD: 


10$: 
20$: 


SWSTK$ 

MOV 

CALL 

BCS 

CHP8 

BNE 

ADD 

MOV 

MOV 

BEQ 

TST 

BEQ 

MOVB 

ASL 

ADD 

MOV 

BR 

RETC 
RETURN 


20$ 

#*RXPT,R2 

aPDVID 

10$ 

R2,L$PDV(R4) 

lOi 

SPDVTA,R2 

(R2),rJ 

Z.DAT(R2),R5 

10$ 

N$PLD+2(R5) 

10$ 

L$CHN(R4),R1 

R1 

N$PLD+2{R5),R1 

CR1),4(SP) 

20$ 

RO 


ENTER  SYSTEM  STATE 

SET  XPT'S  NAME  IN  RAD50 

GET  IT'S  PDV  INDEX         ;  RJK05 

IF  CS,  XPT  NOT  IN  SYSTEM     ;**-1 

OWNED  BY  XPT  ? 

IF  NE,  NO 

POINT  INTO  PDV  TABLE        ;  RJK05 

GET  PDV  ADDRESS  ;**-l 

POINT  TO  XPT'S  DATA  BASE 

BR  IF  XPT  NOT  LOADED 

IS  THE  EXEC  ON? 

IF  EQ,  NO  PLD 

GET  THE  CHANNEL  NUMBER  ASSIGNED 

MAKE  IT  A  WORD  INDEX 

POINT  TO  ADDRESS  OF  PLB 

RETURN  PLB  ADDRESS  IN  SAVED  R1 

RETURN 

SET  USER  C-BIT 


CIREST 

CMAr I D 


READ  CIRCUIT  STATUS, 


MACRO  V05.03b  Thursday  25-Jul-85 

r  1  rr  I  li  t-  nunorl  hv  'xMA 


u 


5  Page  13 


CIREST     CREATED  BY  MACRO  ON  25-JUL-85  AT  15:36 
MACRO  CROSS  REFERENCE 


F  4 

PAGE  6 

CREF   0^.00 


MACRO  NAME 

REFERENCES 

ADJDFS 

#5-62 

5-71 

ASL$ 

*5-62 

7-268 

BIAS 

#5-61 

7-269 

8-326 

8-329 

CALL 

7-195 

7-201 

7-203 

7-229 

7-234 

7-238 

7-253 

7-271 

7-280 

7-288 

7-29A 

8-313 

8-318 

9-352 

9-355 

10-430 

10-440 

12-505 

12-507 

13-551 

13-553 

13-566 

CALLR 

7-167 

CEACCS 

#5-61 

13-566 

CIRCXS 

#5-62 

5-73 

DHBDFS 

#5-62 

5-72 

ECDDBS 

#5-61 

5-68 

MANDFS 

#5-60 

5-6A 

MAP 

#5-61 

8-322 

9-363 

9-377 

ME  SAGS 

#5-61 

PDVDFS 

#5-60 

5-65 

PHBDFS 

#5-60 

5-66 

PLBDFS 

#5-62 

5-70 

RESMAP 

#5-61 

8-331 

9-383 

RESRG 

#5-60 

RETC 

#5-61 

9-381 

12-523 

13-572 

RETURN 

7-296 

8-332 

9-384 

10-A52 

11-486 

12-524 

13-573 

13-582 

SAVMAP 

#5-61 

8-3U 

9-353 

SAVRG 

#5-60 

SLTDFS 

#5-60 

5-67 

SUSTKS 

8-313 

9-352 

12-505 

13-551 

XPDDBS 

"5-62 

5-69 

'•FILE*MD*»C1RMAP 
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MC$CLD 

HCSCOU 

MCSCTL 

MCSCTR 

MCSCTS 

MCSDOV 

MCSLBR 

MCSLBS 

MCSLDI 

MCSLDO 

HC$LDR 

MCtLDS 

MCSLLB 

MC$LLP 

MCSLLR 

HCSLOO 

MCSLRB 

MCSLRP 

MCSLRR 

MCSLSI 

MCtLST 

MCSLUP 

HCSMAP 

MCSMBL 

MCSMBX 

MCSMBY 

MCSMPX 

MCSNAP 

MCSNBR 

HCSNBS 

MCSNCR 

MCSNCS 

MCSNML 

HCSNMR 

MCSNMS 

MCSNNO 

MCSNNU 

MCSNOP 

HCSNOR 

MCSNPF 

MCSNPR 

MCSNRE 

MCSNRT 

MCSNVR 

MC$P08 

MCSPII 

MCSRFL 

MCSSBU 

MCSSFL 

MCSSVC 

MCSSYL 

MCSSYR 

MCSSVS 

MC$SVZ 

MCSTBR 

Mcsres 

MCSTDR 


001A6^ 

100000 

00U54 

00K52 

00H55 

002050 

001750 

001751 

001 77A 

001775 

001762 

001765 

002021 

002115 

002007 

000001 

002020 

0021  ■'4 

002006 

002032 

002033 

006072 

010000 

001764 

00A420 

001752 

00AA06 

001 60A 

001130 

001131 

001154 

001155 

001274 

001142 

001143 

001606 

001605 

001607 

000000 

001616 

001630 

001200 

001166 

001642 

000000 

000001 

002046 

002051 

002044 

000012 

000036 

000050 

000024 

000000 

001140 

001141 

002053 


MCSTIH 

MCSTYP 

MCSUBU 

MCSUfD 

MCSUMR 

MCSUMS 

MCSVAX 

MCSWID 

MCSWIH 

MCSUIL 

MCSUOB 

MC$U16 

MC$W32 

HCSXBR 

MCSXBS 

MCSXCJ 

MCtXCR 

MCSXCS 

HCSXDR 

MCSXDS 

MCSXFR 

MCtXFS 

MCIXLJ 

MCSXLR 

HCtXMA 

MCIXMC 

MCSXMS 

MCSXNR 

MCSXRC 

HCSXRR 

MCSXRS 

MC$020 

HD$C1 

MD$CNA 

MDSCOU 

MD$DA 

MD$DL 

MDSDLV 

MDSDHC 

MDSDMF 

MDSDMP 

MDSDMR 

MDSDMV 

MDIDN 

HDSDP 

HDSDPV 

MD$DQ 

MPSDTE 

M1;JDU 

MDSDUP 

HD$DV 

MDSDZ 

MDSFUL 

MDSHAL 

HDSHEL 

MDSKCP 

MDSKDP 


000000 
007777 
002052 
002047 
001132 
001133 
000003 
060000 
040000 
020000 
020000 
040000 
060000 
001750 
001751 
000322 
002260 
002261 
001762 
001763 
002272 
002273 
000323 
002330 
000310 
002305 
002304 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 
000014 
000046 
000022 
000050 
000042 
000016 
000000 
000044 
000006 
000024 
000002 
000012 
000026 
000030 
000000 
000001 
000002 
000013 
000034 


HDSKDZ 

MDSKL 

MDSKMX 

MDSKMY 

MDSLEN 

MDSPCL 

MDSQNA 

MDSUNA 

MDSUJT 

MD.ABO 

MD.ACC 

MD.A08 

MD.eOB 

MD.DIA 

MD.DOB 

MD.DUM 

HD.FAI 

MD.FNA 

MD.FOB 

MD.LOA 

MD.LSH 

MD.NOB 

MD.NON 

MD.PER 

MD.RES 

MD.ROB 

MD.RSM 

MD.SDU 

MD.SLO 

MD.SNA 

MD.TLO 

MD.UMA 

MD.LNR 

m:i.uob 

MD.VOL 
MESALI 
ME$AL2 
HESARE 
MESCJR 
MESEXA 
MESEXE 
MESLIN 
MESLOG 
MESMOD 
HESNOD 
MESNON 
MESOBJ 
ME$0B2 
MESPRO 
MESSYS 
ME.8L0 


ME, 
ME, 
ME, 


CON 
CST 
DIS 


ME. DON 
ME.FCO 
HE.FIO 


000036 

ME. FOP 

177763 

MOSALI 

000000 

000040 

ME. FOR 

177776 

MOSCHA 

000040 

000054 

ME. FUN 

V7777 

MOSCIR 

000003 

000052 

ME.GRO 

\777i,'i 

HOSCLE 

299192 

000050 

ME.HAR 

177750 

MOtCOU 

000060 

000011 

ME. IIP 

\777b7 

MOSDAC 

000000 

000005 

ME.LCO 

\777bb 

MOSDEF 

000000 

000001 

ME.LPR 

177757 

MOSDPR 

000000 

000002 

ME.HPR 

177773 

MOSENT 

000017 

000017 

ME.MVE 

177771 

MO$EVE 

000100 

000010 

ME. OPE 

177747 

MOSINF 

000160 

000016 

ME.PLO 

177751 

HOIINS 

000002 

000011 

ME.PMI 

177743 

MOSLIN 

000001 

000007 

ME.PNA 

177752 

MOSLOG 

000001 

000015 

HE.PRI 

■[7777S 

MOSMIR 

000031 

000002 

ME.PTY 

177772 

MOJNAM 

922991 

000014 

ME.PVA 

177760 

MOSNIC 

000023 

000001 

Mt.RES 

177761 

MOSNOD 

000000 

000006 

ME.ROO 

177754 

HOSOFF 

000001 

000001 

ME.SIZ 

\7777i. 

MOJON 

000000 

000020 

ME. SYS 

177746 

MOSOPT 

000001 

000012 

HE.UCO 

177770 

HOSPER 

000200 

M777-7 

MFSACT 

177776 

MOSPRO 

000002 

000000 

MFSADD 

000000 

HOSPRS 

000001 

000004 

MFSADJ 

177774 

HO$REA 

000200 

000005 

MFSALL 

177775 

MOSSET 

000000 

000013 

MFSBYE 

000300 

MOSSTA 

000020 

000005 

MFSCHA 

000023 

HO$SUM 

000000 

000003 

MFSDUM 

000020 

MOSTSK 

000000 

000000 

MFSEVT 

000001 

MOSVOL 

000000 

000004 

MFSFUP 

000264 

MOSZER 

000000 

000002 

HFSKNO 

177777 

MPIACB 

000012 

000003 

MFSLOA 

000017 

MPSACC 

000514 

000007 

MFSLOO 

177775 

MPSACT 

004526 

000006 

MFSREA 

000024 

MP$ADD 

000766 

000010 

MF$SIG 

177773 

MPSADJ 

001440 

000003 

MFSSPF 

000302 

MPSADP 

006325 

000005 

MFSSYS 

000026 

MPSADS 

004406 

000003 

MFSTES 

000022 

HPSALB 

000036 

000000 

MFSTRA 

000301 

HPSAMC 

001640 

000200 

MFSTRI 

000021 

MPSAHH 

001641 

000001 

MFSZ'FR 

000025 

MPJANB 

004420 

000002 

MLSAlL 

100000 

MPSASB 

000024 

000004 

MLSCLS 

000000 

MPS AS C 

004432 

000000 

MLSCOM 

000001 

MPSAUS 

000512 

\mn 

MLSEXT 

000001 

MPSBBT 

002165 

000007 

MLSFIL 

000002 

MPSBDF 

002164 

000004 

MLSFIR 

000000 

MPSBFQ 

002121 

000005 

HLSINT 

000000 

MP$BLK 

001616 

000006 

HLSKNO 

140000 

MPSBLO 

001452 

M77t,i* 

HLSMON 

000003 

MPSBHX 

002176 

V7751 

MLSSYS 

000002 

HPSBNP 

006330 

U77b5 

MLSTOP 

000001 

HPSBRT 

001620 

177755 

MNSUNL 

000377 

MPSBSA 

002176 

177600 

MOSACC 

000200 

MPSBSD 

002203 

177762 

MOSADD 

000002 

MPSBSI 

002200 

177756 

MOSALA 

000004 

MPSBSP 

006331 
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CIZEIN 

CREATE!;  By 

MACRO  ON  29 

-JUN-85  AT 

SYMBOL 

-ROSS  referen:e 

SYMBOL 

VALUE 

REFERENCES 

CHKCIR 

=  »»»**»  GX 

6-136 

CIZEIN 

000000  RG 

#6-96 

LCSNTL 

=  000200 

#5-67 

LCtOUN 

=  000400 

#5-67 

LFSMLT 

=  040000 

#5-67 

LFSREA 

=  000001 

#5-67 

6-104 

LFSSEG 

=  100000 

#5-67 

LFSSKP 

=  000004 

#5-67 

LF$VR2 

=  000010 

#5-67 

LFSZER 

=  000002 

#5-67 

6-101 

LPSMPT 

=  000010 

#5-67 

LPSMUX 

=  000004 

#5-67 

LPSNXC 

=  100000 

#5-67 

LPSTRB 

=  000002 

#5-67 

LPSUNT 

=  000001 

#5-67 

LPtWCN 

=  000040 

#5-67 

5-67 

LPtUDV 

=  000020 

#5-67 

5-67 

LPSULD 

=  000360 

#5-67 

LPSWTR 

=  000200 

#5-67 

5-67 

LPSWUN 

=  000100 

#5-67 

5-67 

LSSACT 

=  000040 

#5-67 

LS$BBT 

=  010000 

#5-67 

LSSBLK 

=  001000 

#5-67 

5-67 

LSSBSA 

=  000001 

#5-67 

LSSBSD 

=  000002 

#5-67 

LSSBSI 

=  000004 

#5-67 

LSSCHN 

=:  000001 

#5-67 

5-67 

LSSCMB 

=  000002 

#5-67 

5-67 

LSSCOS 

=  000004 

#5-67 

LSSCUS 

=  000004 

#5-67 

5-67 

LSSDDT 

=  001000 

#5-67 

LSSDEA 

=  000100 

#5-67 

LSSCLM 

=  001004 

#5-67 

LSSDLT 

=  002000 

#5-67 

LSSDTE 

=  000010 

#5-67 

5-67 

LSSHBT 

=  000400 

#5-67 

LSSHTM 

=  010000 

#5-67 

LSSINA 

=  000010 

#5-67 

LSSIND 

=  000020 

#5-67 

LSIINI 

=  000040 

#5-67 

LSSLCT 

=  020000 

#5-67 

5-67 

LSSLMB 

=  000002 

#5-67 

LS$LOO 

=  040000 

#5-67 

LSSMDT 

=  020000 

#5-67 

LSSMRT 

=  000020 

#5-67 

LSSMWN 

=  000040 

#5-67 

LSSMXB 

=  OC1000 

#5-67 

LS$MXR 

=  000020 

#5-67 

5-67 

LSSMXW 

--  000040 

#5-67 

5-67 

LSSNMT 

=  020000 

#5-67 

LSSNOR 

=  100000 

#5-67 

LSSNri 

=  000200 

#5-67 
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99 
TOO 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
IK 
115 
116 

117  000030 

118  000030 

119  000036 

120  OOOOAO 

121  000040 

122  000044 

123  000050 

124  000054 

125  000062 

126  000066 
127 

128 

129  070 

130  0uO074 

131  000076 
132 

133 

134  000106 

135  000112 

136  000114 

137  000120 

138  000124 

139  000130 

140  000134 

141  000140 

142  000144 
143 

144 
145 
146 


.SBTTL  DACOU  -  READ  AND/OR  ZERO  DA  COUNTERS 

•*-DACOU-READ  AND/OR  ZERO  DA  COUNTERS 

THIS  ROUTINE  READS  AND/OR  ZEROS  THE  LINE  AND  TRANSPORT  COUNTERS 
FOR  A  DA  LINE. 

INPUTS: 

R3  =  ADDRESS  OF  NEXT  FREE  BYTE  IN  BUFFER 
R4  =  ADDRESS  OF  THE  CONTEXT  AREA 

OUTPUTS: 

R3  =  ADDRESS  OF  NEXT  FREE  BYTE  IN  BUFFER 

REGISTERS: 

R4  IS  PRESERVED 


032764  000010  000064 
001442 


016400  000042 

016000  000010 
001422 


020027  120000 
103404 


012705  000000' 
005002 


012705  000006' 
010366  000010 

000001 


DALIN:: 
DACIR:: 


.ENABL  LS8 


10$: 


20$: 
30$: 


BIT 
BEQ 

SWSTK$ 

SAVMAP 

MOV 

MAP 

MOV 

BEQ 

.IF  DF 

CMP 

BLO 

BIAS 

.ENDC 

MOV 

CLR 

CALL 

CALL 

MOV 

CALL 

RESMAP 

MOV 

RETURN 

.DSABL 

.END 


#LF$VR2,L$FLG(R4) 
30$ 

30$ 

L$SLT(R4),R0 
L.DLM(RO) 
L.DLS(RO),RO 
20$ 

M$$MGE 
R0.*1 20000 

loi 

RO 

;  M$$MGE 

#DAT80,R5 

R2 

FHTCOU 

XPTCOU 

#DATB1,R5 

FMTCOU 

R3,8.(SP) 


LS8 


CONNECTED  TO  VERSION  2.0  NCP  ? 
IF  EQ,  NO  -  RETURN  NO  INFORMATION 

ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

GET  THE  SLT  ADDRESS 

HAP  TO  THE  LINE  TABLE 

GET  LINE  TABLE  VIRT  ADDRESS 

IF  EQ,  LINE  NOT  LOADED  -  NO  COUNTERS 


MAPPED  THROUGH  APR  5  ? 

IF  LO,  NO 

FORCE  APR  6  MAPPING  (APR  2  FOR  IAS) 


POINT  TO  FIRST  DA  TABLE 

RETURN  ALL  COUNTERS  (PT  TO  PT) 

GET  THE  TIME  COUNTER 

GET  THE  TRANSPORT  COUNTERS 

POINT  TO  THE  COUNTER  TABLE 

FORMAT  THE  COUNTERS 

RESTORE  PREVIOUS  MAPPING 

RETURN  R3  IN  SAVED  R3 

BACK  TO  USER  STATE  AND  RETURN 
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CONTEXT  AREA  DEFINITIONS 


59 
60 
61  000000 


000000 


000000 
000020 


000000 
000000 
000002 
000003 
OOOOOA 

000020 
OCOOAO 
0OOOA1 
0000A2 
OOOOAA 
0000A6 
000050 
000052 
000053 
00005A 
000055 
000056 
000060 
000062 
000063 
000064 
000066 
000067 
000067 
000070 
000070 
000070 
000072 
000110 
000112 
0001 U 
000'' •'6 
0OC"2O 
000122 
000124 
000000 


000124 

000000 
000001 


000020 


000000 


.SBTTL  CONTEXT  AREA  DEFINITIONS 
CIRCXS  LIST 
CONTEXT  AREA  OFFSET  DEFINITIONS 


.ASECT 
.  =  0 
LSNLEN 


16. 


MAXIMUM  NAME  LENGTH 


The  offsets  LSNAM  to  L$PDV  inclusive  must  appear  in  the  same  order 
as  in  the  CIRCXS  and  LOCCXS  macros. 


LSNAM 


LSDDM 

.BLKU 

1 

ISCTI 

.BLKB 

1 

LSUNT 

.BLKB 

1 

L$PVC 

.BLKW 

1 

.  =  0+L$NLEN 

LSSCN 

.BLKB 

LSNLEN 

LSTRB 

.BLKB 

LSPFG 

.BLKB 

LSSLT 

.BLKU 

LSNXT 

.BLKU 

LSSNH 

.BLKW 

LSTPT 

.BLKU 

LSTNM 

.BLKB 

LSCTB 

.BLKB 

LSCHN 

.BLKB 

LSPDV 

.BLKB 

LSMSG 

.BLKU 

LSBUF 

.BLKU 

LSOPT 

.BLKB 

LSTYP 

.BLKB 

LSFLG 

.BLKW 

LSSLE 

g:  .BLKB 

LSPRO 

LSMTY 

":    .BLKB 

LSTSZ 

LSLTM 

LSFLX 

.BLKU 

LSSCR 

.BLKW 

LSADJ 

•   .BLKW 

LSNOD 

■   .BLKW 

L$COU 

:   .BLKU 

LSPLB 

:   .BLKU 

LSPAR 

:   .BLKU 

LSSYL 

:   .BLKU 

LSLEN 

.PSECT 

)  OFF 

SETS  INTO 

SCRATCH 

' 

.ASECT 

.=0 

P$5: 

.BLKB 

1 

B$6: 

.BLKB 

1 

;  DEVICE  NAME 

;  CONTROLLER  NUMBER 

;  UNIT  NUMBER 

;  3RD  UORD  OF  PVC  NAME 
SPACE  FOR  EXPANDED  CIRCUIT  NAME 

;  CURRENT  NAME  IN  UILDCARD  SCAN 
TRIBUTARY  NUMBER 
PARSE  FLAGS 

Current  SLT/PVC  address 
Pointer  to  next  SLT/PVC  address 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  (-1  for  PSD 
REMAINING  NUMBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channel  number  /  X.25  port  number  and 
. ..  PDV  assigned 
ERROR  MESSAGE  STRING  POINTER 
SAVED  BUFFER  POINTER 
SAVED  OPTIONS  BYTE 
LINE-ID  FORMAT  TYPE 
FLAG  UORD 

Significant  length  of  circuit  name 
Line  protocol 

Network  management  circuit  type 
Block  size  for  transport  circuits 
Listen  timer  for  transport  circuits 
Flags  word  for  X.25  circuit  commands 
SCRATCH  BUFFER 

Pointer  to  adjacency  database 
Adjacent  node  address 
Count  of  adjacency  entries 
PLB  address 
PARAMETER  TYPE 
System  line  number 
LENGTH  OF  CONTEXT  AREA 


BASE  TABLE 
BASE  TABLE 
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CREF       OA.OO 


MACRO  NAME 

REFERENCES 

BIAS 

#5-53 

CALL 

10-162 

10-16A 

10-201 

10-207 

10-209 

CALLR 

#5-53 

CIRCXS 

#5-54 

6-61 

LDCDFS 
DLBH$ 

#5-5A 
#9-87 

5-56 
#9-88 

#9-89 

#9-94 

#9-95 

#9-96 

#9-97 

#9-98 

9-99 

9-100 

9-1C1 

9-102 

#9-103 

9-104 

9-105 

9-106 

9-107 

#9-108 

#9-109 

#9-110 

9-111 

9-112 

9-113 

#9-114 

9-115 

9-116 

9-117 

#9-118 

#9-119 

9-120 

9-121 

9-122 

#9-12A 

9-125 

9-126 

9-127 

9-128 

9-129 

#9-130 

9-131 

9-132 

9-133 

9-1 3A 

9-135 

#9-136 

DLCOUS 

#5-53 

9-87 

9-88 

9-89 

9-94 

9-95 

9-96 

9-97 

9-98 

9-103 

9-108 

9-109 

9-110 

9-114 

9-118 

9-119 

9-124 

9-130 

9-136 

MAP 

#5-53 

RESMAP 

#5-53 

10-212 

■^ 

RESRG 

#5-53 

10-202 

RETURN 

10-2U 

SAVMAP 

#5-53 

10-163 

SAVRG 

#5-53 

10-171 

10-196 

SWSTKS 

10-162 

♦  ♦F1LE*MD«*DEALUN 
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Context  area  definitions 


60 
61 
62  000000 


000004 


000000 
000020 


000000 
000000 
000002 
000003 
000004 

000020 
000040 
000041 
000042 
000044 
000046 
000050 
000052 
000053 
000054 
000055 
000056 
000060 
000062 
000063 
000064 
000066 
000067 
000067 
000070 
000070 
000070 
000072 
000110 
000112 
000114 
000116 
000120 
000122 
000124 
000000 


000124 

000000 
000001 


000020 


000000 


.SBTTL  Context  area  definitions 
CIRCXS  LIST 
;  CONTEXT  AREA  OFFSET  DEFINITIONS 


.ASECT 

.  =  0 

L$NLEN  =  16. 


MAXIMUM  NAME  LENGTH 


The  offsets  LSNAM  to  LSPDV  inclusive  must  appear  in  the  same  order 
as  in  the  CIRCXS  and  LOCCXS  macros. 


LSNAM 
LSDDM 
LSCTL 
LSUNT 
LSPVC 

LSSCN 

LSTRB 

LSPFG 

LSSLT 

LSNXT 

LSSNM 

LSTPT 

LSTNM 

LSCTB 

LSCHN 

LSPDV 

LSMSG 

LSBUF 

LSOPT 

LSTYP 

LSFLG 

LSSLEN 

LSPRO: 

LSMTYP 

LSTSZ 

LSLTM 

LSFLX 

LSSCR 

LSADJ 

LSNOD 

LSCOU 

LSPLB 

LSPAR 

LSSYL 

LSLEN 


.8LKW  1 
.BLKB  1 
.BLKB  1 
.8LKW  1 
.  =  O+LSNLEN 
.BLKB   LSNLEN 


.BLKB 
.BLKB 
.BLKW 
.8LKW 
.BLKW 
.BLKW 
.8LKB 
.BLK8 
.BLKB 
.BLK8 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKW 
.8LK8 


.■3LK8   1 


.BLKW 
.8LKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.PSECT 


;  DEVICE  NAME 

;  CONTROLLER  NUMBER 

;  UNIT  NUMBER 

;  3RD  WORD  OF  PVC  NAME 
SPACE  FOR  EXPANDED  CIRCUIT  NAME 

;  CURRENT  NAME  IN  WILDCARD  SCAN 
TRIBUTARY  NUMBER 
PARSE  FLAGS 

Current  SLT/PVC  address 
Pointer  to  next  SLT/PVC  address 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  (-1  for  PSD 
REMAINING  NUMBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channel  number  /  X.25  port  number  and 
...  PDV  assigned 
ERROR  MESSAGE  STRING  POINTER 
SAVED  BUFFER  POINTER 
SAVED  OPTIONS  BYTE 
LINE-ID  FORMAT  TYPE 
FLAG  WORD 

Significant  length  of  circuit  name 
Line  protocol 

Network  management  circuit  type 
Block  size  for  transport  circuits 
Listen  timer  for  transport  circuits 
Flags  word  for  X.25  circuit  commands 
SCRATCH  BUFFER 

Pointer  to  adjacency  database 
Adjacent  node  address 
Count  of  adjacency  entries 
PLB  address 
PARAMETER  TYPE 
System  line  number 
LENGTH  OF  CONTEXT  AREA 


OFFSETS  INTO  SCRATCH  BUFFER  (LSSCR)  FOR  DMC  BASE  TABLE  COUNTERS 


BS5: 
BS6: 


.ASECT 
.=0 

.BLKB   1 
.BLKB   1 


BASE  TABLE 
BASE  TABLE 


DLCCOU  -  REA 
Symbol  table 


MSJFAl 

MSSGLO 

HSSHOL 

MSSINA 

MSSLOA 

MSSLOO 

MSSOfF 

MSSON 

MSSPRO 

MSSREA 

MSSREF 

WSSRES 

MStRST 

MSSRSX 

MSSRT 

MSSSER 

HSSSHU 

MStSRV 

MSSSTA 

MStSYN 

WSSTER 

MSSTOP 

MSSTRI 

MSSUNR 

HSSVMS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MTSAR-, 

MTSASC 

MTSBIL 

MTSBYS 

MTSCI 

MTSCLE 

MTSCOD 

MTSCON 


000013 
000000 
000002 
000002 
000003 
000002 
000001 
000000 
000006 
000004 
000001 
000003 
000001 
000002 
000005 
000002 
000002 
000007 
000000 
000012 
000001 
000003 
000005 
000005 
000004 
1 77600 
000002 
000003 
000001 
000003 
000100 
000001 
000011 
000007 
000077 
000200 
000001 


MTSDMC 

HTSETH 

MT$HEX 

MTSLPB 

HTSMAX 

MTSMUL 

HTSNLE 

MTSNON 

MT$NR4 

MTSNTY 

MTSOCT 

HTSPHA 

MTSPOI 

HT$QP2 

MTSROU 

MTSROA 

MT$SEC 

MTSSGD 

HTtSYS 

MTSTER 

WTSTRI 

HTSTYP 

HTSUSD 

MT$X25 

MUSING 

MUSOUT 

MUSPER 

MVSIII 

MVSIV 

MXSACT 

HXSCIR 

MXJCLN 

MXSCNH 

MXSCON 

MXSDAC 

HXSDTE 

MXSFIL 


000004 
000006 
000040 
000005 
000037 
000100 
000017 
000001 
000005 
000060 
000060 
000002 
000000 
000010 
000000 
000004 
000000 
000020 
000002 
000001 
000002 
007777 
000000 
000003 
000001 
000002 
000000 
000000 
000001 
000020 
000020 
000020 
000006 
000006 
000020 
000020 
000034 


.  ABS.   177776 
001052 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,A8S,0VR) 
(RW,I,LCL,REL,C0N) 


♦**  Assembler  statistics 


Work  file  reads; 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool; 
Operating  system: 


248 

178 

35691  Words  (  140  Pages) 

17608  Words  (  67  Pages) 

RSX-11M/PLUS 
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MXSLGC 

000777 

PDVTA  =  *♦-*♦*  GX 

XS$DBT= 

000000 

MXSLIN 

000020 

P$SP45=  000000 

ZF.C0U= 

001000 

MXSLON 

000006 

PS$WRD=  000000 

ZF.DDM= 

000001 

MXSNMS 

000454 

Q$S0PT=  000010 

ZF.DIA= 

004000 

MXSNOD 

000006 

RQSTCO  000416R 

ZF.DLC= 

000002 

MXSOBJ 

000006 

R$RO  =  ******  GX 

ZF.DVP= 

1995S2 

MX$OUN 

000040 

R$R3  =  ******  GX 

ZF.INI= 

040000 

MX SPAR 

000036 

RSR5  =  ******  GX 

ZF.KHX= 

000020 

MXSPAS 

OOC010 

R$SDER=  000000 

ZF.LLC= 

000004 

MXSRAC 

000047 

RSSK11=  000001 

ZF.LMC= 

29219S 

MXSRID 

000047 

RSSSND=  000000 

ZF.MAN= 

020000 

MXSRPS 

000047 

RSS11M=  000000 

ZF.HFL= 

000010 

MXSSID 

000040 

SFSANM  000001 

ZF.MTH= 

000400 

MXSSNK 

000377 

SFSDNM  000002 

ZF.MUX= 

000040 

MXSTYP 

000077 

SF.ACT=  000200 

ZF.PSE= 

002000 

MXSUID 

000020 

SF.ENA=  000100 

ZF.SLI= 

010000 

MSSCRB= 

000124 

SF.LP8=  000004 

ZF.TIH^ 

000200 

M$SCRX= 

000000 

SF.MFL=  000040 

ZF.X3P= 

000000 

M$SFCS= 

000000 

SF.PAC=  000020 

ZS.ASN= 

100000 

MSSMGE= 

000000 

SF.REA=  000010 

ZS.BSY= 

140000 

HSSNET= 

000000 

SF.SER=  000001 

Z.AVL 

000014 

MSSOVR= 

000000 

SF.SVC=  000002 

Z.DAT 

000016 

NMCRS  = 

»*♦»»♦  GX 

SF.UNL=  000040 

Z.DSP 

000000 

NM.CLN 

003400 

SSSWRG=  000000 

Z.FLG 

000010 

NM.INI 

002400 

SSSYSZ=  007600 

Z.LEN  = 

000016 

NM.OPR 

003000 

S.COST  000001 

Z.LLN 

000006 

NM.VR2 

002401 

S.FLG   000000 

Z.MAP 

000020 

NH.VR3 

002402 

S.LEN   000004 

Z.NAM 

000004 

N$SACC= 

000001 

S.NMST  000002 

Z.PCB 

000012 

N$SBUF= 

000001 

S.OUNR  000003 

Z.SCH 

000007 

NSSLDV= 

000001 

TKTCB  =  ******  GX 

$HEADR= 

******  GX 

NSSMCP= 

000001 

TSSKMG=  000000 

SPRCCO 

000004RG 

NSSMLL= 

000001 

TSSMIN=  000000 

SPRLCO 

000002RG 

N$$MOV= 

000010 

T.NAM  =  ******  GX 

$$SSYS= 

004374 

N$$NCT= 

000001 

V$SCTR=  001000 

$$SSYX= 

000000 

N$SPEM= 

000001 

XPTC0U=  ******  GX 

.«S$S.= 

000034 

RSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10]RSXHCM/PA 

1,C135,10]DLCCOU 

DLCCOU 
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BIT  DEFINITIONS 

.S8TTL  BIT  DEFINITIONS 

PARSE  FLAG  DEFINITIONS  (L$PFG) 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000^00 
000360 


000001 
000002 
000004 


000010 
000020 
000040 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


LPSUNT  =  1 

LPSTRB  =  2 

LPSMUX  =  4 

LPSMPT  =  10 

LPSUDV  =  20 

LPSWCN  =  40 

LPSUUN  =  100 

LPSUTR  =  200  .  -. 

LPtWLD  =  LP$WDVILPIWCNILP$WUNILPiWTR 


UNIT  NUMBER  FOUND 
TRIBUTARY  NUMBER  FOUND 
DEVICE  IS  MUX 
LINE  IS  MULTIPOINT 
WILD  CARD  DEVICE  NAME  FOUND 
WILD  CARD  CONTROLLER  NUMBER  FOUND 
WILO  CARD  UNIT  NUMBER  FOUND 
WILD  CARD  TRIBUTARY  NUMBER  FOUND 
WILD  CARD  FIELD  MASK 


FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 

LFSREA  =  1 
LFSZER  =  2 
LFSSKP  =  4 


LF$VR2  =  10 

LF$END  =  20 

LFSSIG  =  40 

LFSMLT  =  40000 

LFSSEG  =  100000 

BIT  POSITION  DEFINITIONS 


READ  COUNTERS  OPERATION 

ZERO  COUNTERS  OPERATION 

SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 

THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 

FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 

CONTROLLER  COUNTERS  AS  WELL  AS  ALL 

OF  THE  TRIBUTARY  COUNTERS. 

CONNECTED  TO  VERSION  2.0  NCP 

EXECUTOR  IS  AN  ENDNODE 

SHOWING  SIGNIFIGANT  LINES/CIRCUITS 

MULTIPLE  ADJACENCY  FLAG 

SEGMENTED  RESPONSE  IN  PROGRESS 


BITO  = 
BIT1  = 
8IT2  = 
BIT3  = 
BIT4  = 
BITS  = 
BIT6  = 
B1T7  = 
BITS  - 
BIT9  = 
BIT10 
BIT11 
BIT12 
B1T13 
BIT14 
BIT15 


1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 
=  2000 
=  4000 
=  10000 
=  20000 
=  40000 
=  100000 


DLMCOU 
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CREF  Oi,.00 


SYMBOL 

VALUE 

REFERENCES 

SF.UNL 

=  OOOOAO 

#5-59 

S$$BAS 

=  ****** 

8-72 

S.COST 

000001 

#5-59 

S.FLG 

000000 

#5-59 

S.LEN 

OOOOOA 

#5-59 

S.NMST 

000002 

#5-59 

S.OWNR 

000003 

#5-59 

XPTCOU 

=  ******  Gx 

10-122 

X$$MCB 

=  ****** 

5-60 

5-60 

ZF.COU 

=  001000 

#5-60 

ZF.DDM 

=  000001 

#5-60 

ZF.DIA 

=  OOAOOO 

#5-60 

ZF.DLC 

=  000002 

#5-60 

ZF.DVP 

=  100000 

#5-60 

ZF.INI 

=  040000 

#5-60 

ZF.KMX 

=  000020 

#5-60 

ZF.LLC 

=  000004 

#5-60 

ZF.LMC 

=  000100 

#5-60 

ZF.MAN 

=  020000 

#5-60 

ZF.MFL 

=  000010 

#5-60 

ZF.MTM 

=  000400 

#5-60 

ZF.MUX 

=  000040 

#5-60 

ZF.PSE 

=  002000 

#5-60 

ZF.SLI 

=  010000 

#5-60 

ZF.TIM 

=  000200 

#5-60 

ZF.X3P 

=  000000 

#5-60 

ZS.ASN 

=  100000 

#5-60 

ZS.BSY 

=  140000 

#5-60 

Z.AVL 

000014 

#5-60 

Z.DAT 

000016 

#5-60 

Z.DSP 

000000 

#5-60 

5-60 

Z.FLG 

000010 

#5-60 

Z.LEN 

=  000016 

#5-60 

Z.LLN 

000006 

#5-60 

Z.HAP 

000020 

#5-60 

Z.NAy 

000004 

#5-60 

Z.PCB 

000012 

#5-60 

Z.SCH 

000007 

#5-60 

$$BM 

=  000000 

#9-86 

9-86 

$$REG 

=  000001 

#9-86 

*9-86 

$$WID 

=  040000 

#9-86 

9-86 

9-86 
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DLXQIO  - 

ISSUE 

1/0  TO  DLX 

DLXLUN  - 

ASSIGN 

A  LUN  IC 

NX: 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

000200 

201 

000200 

202 

000202 

203 

000206 

204 

000226 

103415 

205 

000230 

062704 

000166 

206 

000234 

207 

000250 

103404 

208 

000252 

05764 

000003 

209 

000256 

00401 

210 

000260 

000261 

211 

000262 

212 

000264 

213 

2M> 

000001 

F  15 
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.SBTTL  DLXLUN  -  ASSIGN  A  UN  TO  NX: 

•♦-DLXLUN-ASSIGN  A  LUN  TO  NX: 

THIS  ROUTINE  IS  CALLED  TO  ASSIGN  STHLUN  TO  NX; 

OUTPUTS: 

IF  CC,  NX:  IS  LOADED  AND  ALUN  SUCEEDED. 
ELSE,  NX;  NOT  PRESENT 

REGISTERS: 

NO  REGISTERS  MODIFIED 


DLXLUN:: 


10$: 


SAVRG 

<R4> 

CALL 

DEALUN 

ALUNSS 

#$TMLUN,#" 

BCS 

10$ 

ADD 

#L$SCR,R4 

GLUNSS 

#$TMLUN,R4 

BCS 

10$ 

TSTB 

3(R4) 

BMI 

10$ 

SEC 

RESRG 

<R4> 

'NX 


RETURN 
.END 


SAVE  R4 

DEASSIGN  THE  TEMPORARY  LUN 

TRy  TO  ASSIGN  A  LUN  TO  NX: 

IF  CS,  NOT  THERE 

POINT  TO  SCRATCH  BUFFER 

GET  LUN  INFORMATION 

IF  CS,  ASSUME  NO  DLX 

IS  THE  DRIVER  LOADED  ? 

IF  MI,  VES 

ELSE,  NO 

RESTORE  R4 


OLXQIO  -  ISSUE  I/O  TO  DLX 
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CONTEXT  AREA  OFFSET  DEFINITIONS 

000122 
000123 
0001 2A 
000125 
000126 
000127 
000130 
000131 
000132 
000133 
000134 
000166 
00022A 
000226 
000230 
000230 
000232 
00023A 
00023A 
000236 
000236 
0002A0 
0002A0 
000250 
000252 
000252 
000253 
000253 
000254 
000256 
000256 
000260 
000262 


000001 
000002 
000004 


000010 
040000 
100000 


000264  LSLEN: 

000000  .PSECT 


L$SSA 

.BLK8   1 

;  DMP 

ACTIVE  BASE 

L$BSD 

.BLKB   1 

;  DMP 

DYING  BASE 

L$BSI 

.BLKB   1 

;  DMP 

INACTIVE  BASE 

L$INA 

.BLKB 

;  DMP 

ACTIVE  INCREMENT 

LSIND 

.BLKB 

;  DMP 

DYING  INCREMENT 

L$IN 

.BLKB   1 

;  DMP 

INACTIVE  INCREMENT 

L$TH1 

.BLKB   1 

;  DMP 

DEAD  THr:''HOLD 

L$TH2 

.8LK8   1 

;  DMP 

DYING  THRESHOLD 

L$TH3 

.BLK8   1 

;  DMP 

INACTIVE  THRESHOLD 

L$MXB 

.BLKB 

;  DMP 

MAXIMUM  BLOCKS 

L$NTL 

.BLKU 

3.           ;  NTL 

MESSAGE  BUFFER 

L$SCR 

.8LKW 

5.            ;  SCRATCH  BUFFER 

L$LCT 

.8LKW 

;  COUNTER  TIMER 

L$HTM 

.8LKW 

;  HELLO  TIMER 

L$SER 

;  SERVICE 

L$LTM 

.BLKU 

;  LISTEN  TIMER 

L$XCH 

.BLKW 

;  X25 

Logical  Channel  Number  (LCN) 

L$LM8 

;  X25 

Max  Block  (Line) 

L$CMB 

.SLKW 

;  X25 

Max  Data  (Circuit) 

LSNUML: 

;  DLM 

Number  length 

L$DTE 

:  .BLKW 

;  X25 

DTE  length  (Circuit) 

LSNUM 

;  DLM 

Number 

L$DTE 

.8LK8 

3.            ;  X25 

DTE  (Circuit) 

L$DTE 

=;  .BLKW 

;  X25 

Pointer  to  DTE  descriptor  (Circui 

t) 

LSMWN 

;  X25 

Max  Window  (Line) 

LSMXW 

.BLKB 

;  X25 

Max  Window  (Circuit) 

LSMRT 

;  X25 

Max  Retransmits  (Line) 

L$MXR 

.8LK8 

;  DLM 

Max  Recalls  (Circuit) 

LSHBT 

.BLKW 

1             ;  X25 

Holdback  Timer  (Lit(e) 

L$NTI 

;  X25 

Retransmit  Timer  (Line) 

L$RET 

.BLKW 

1             ;  DLM 

Recall  Timer  (Circuit) 

LSCUS 

■   .BLKW 

;  DLM 

Usage 

L$BLK 

■   .8LKW 
.IF  DF 

1             ;  DLM 
R$$PRO  ;PRO/DECnet 

blocking  state 

LSLTY 

:   .8LKW 

[            ;  Loopback  Type 

LSMDT 

:   .BLKW 

1             ;  Modem  Test 

.ENDC 

;  DF  R$$PRO 

.EVEN 

LENGTH  OF  CONTEXT  AREA 


;  FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 


LFSREA  =  1 
LFSZER  =  2 
LFSSKP  =  4 


LF$VR2  =  10 
LFSMLT  =  40000 
LFSSEG  =  100000 

PARSE  FLAG  DEFINITIONS  (L$PFG) 


000001  LPSUNT  =  1 


READ  COUNTERS  OPERATION 
ZERO  COUNTERS  OPERATION 
SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 
THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 
FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 
CONTROLLER  COUNTERS  AS  WELL  AS  ALL 
OF  THE  TRIBUTARY  COUNTERS. 
CONNECTED  TO  VERSION  2.0  NCP 
MULTIPLE  ADJACENCY  FLAG 
SEGMENTED  RESPONSE  IN  PROGRESS 


UNIT  NUMBER  FOUND 
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79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

9l 

97 

98 

99 
100 
101 
102 

103  000022 

104  000022 

105  000022 

106  000025 

107  OOC032 

108  000036 

109  000042 

110  000046 
111 

112  000050 

113 

114 

115 

116  000052 

117  000056 
118 

119 
120 

121  000060 

122  000066 

123  000070 

124  000072 

125  000074 
126 

127 
128 

129  000100 

130  000104 

131  000106 

132  000110 

133  000114 

134  000116 

135  000122 


.SBTTL 
.SBTTL 


CIREOP  -  CIRCUIT  READ  INFORMATION  OPERATE 
CIZEOP  -  CIRCUIT  ZERO  COUNTERS  OPERATE 


**-CIREOP-ClRCUIT  READ  INFORMATION  OPERATE  ROUTINE 
**-CIZEOP-CIRCU]T  ZERO  COUNTERS  OPERATE  ROUTINE 

THIS  ROUTINE  IS  CALLED  TO  PERFORM  THE  READ  CIRCUIT  INFORMATION 
FUNCTIONS.  ZERO  COUNTERS  IS  HANDLED  AS  A  SPECIAL  CASE  OF  THE 
READ  COUNTERS  OPTION. 

INPUTS: 

R3  =  ADDRESS  OF  INPUT/OUTPUT  BUFFER 

R4  =  ADDRESS  OF  CONTEXT  AREA  (WITH  DATA  SET  UP  FROM  LIREIN) 

OUTPUTS: 

RO  =  NICE  RETURN  CODE 

R2  =  LENGTH  OF  DATA  IN  OUTPUT  BUFFER 

R3  =  ADDRESS  OF  OUTPUT  BUFFER 

C-8IT  =  CLEAR  IF  SUCCESS,  SET  IF  FAILURE 

REGISTERS: 

R3,  R4, 


R5  ARE  PRESERVED 


004567  OOOOOOG 

010364  000060 

016403  000060 

112723  177600 

005764  000064 
001454 

100403 


103450 


CIREOP:: 
CIZEOP: 


1$: 


R5,$SAVRG 

R3,L$BUF(R4) 

L$8UF(R4),R3 

#HE.D0N,(R3)+ 

L$FLG(R4) 

30$ 


JSR 

MOV 

MOV 

M0V8 

TST 

BEQ 

.IIF  NE  LFSSEG-IOOOOO  .ERROR 

BMI     5$ 


FIND  THE  NEXT  CIRCUIT  TO  OPERATE  ON 


CALL 
BCS 


GETCIR 
30$ 


SAVE  R3-R5 

SAVE  BUFFER  POINTER 

RESET  BUFFER  POINTER 

ASSUME  WE'RE  ALL  DONE 

ANYTHING  TO  DO  ? 

IF  EQ,  NO  -  RETURN 

VALUE  ERROR 

IF  MI,  CONTINUE  WITH  CURRENT  CIRCUIT 


FIND  THE  NEXT  LINE 

IF  EQ,  NO  MORE  LINES  -  FINISHED 


FORMAT  THE  CIRCUIT-ID  FOR  RETURN 


112763  000001  M7117 

105023 

105023 

105023 


012705  000000' 

005715 

100430 

121564  000062 

001023 

016505  000002 


5$: 


MOVB 
CLRB 
CLRB 
CLRB 
CALL 


*MS.SUC,-1(R3) 
(R3)  + 
(R3)  + 
(R3)  + 
FMTCIR 


DISPATCH  TO  READ  ROUTINES 
10$ 


001422 


MOV 

TST 

BMI 

CMPB 

8NE 

MOV 

BEQ 


#DISTBL,R5 

(R5) 

20$ 

(R5),L$0PT(R4) 

15$ 

2(R5),R5 

20$ 


ASSUME  SUCCESSFUL  RETURN 
CLEAR  ERROR  DETAIL  BYTES 


FORMAT  THE  CIRCUIT-ID 


POINT  TO  START  OF  TABLE 

AT  END  OF  TABLE  ? 

IF  MI,  YES  -  DIDN'T  FIND  ROUTINE 

DISPATCH  ON  THIS  OPERATION  ? 

IF  NE,  NO 

GET  THE  DISPATCH  ROUTINE  ADDRESS 

IF  NOT  DEFINED,  ILLEGAL  OPERATION 
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Table  of  contents 
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data 


?5:?5 


5-  56  Macro  calls  and  local 

5-  73  BIT  DEFINITIONS 

6-  79  State  mapping  tables 

7-  136  CIREST  -  Read  line  status 

8-  302  GETADE  -  Get  an  endnode  adjacency 

9-  334  GETADJ  -  Get  an  adjacency 

10-  387  PUTNOD  -  Put  node  id  and  block  size 

11-  455  SETNAM  -  Set  an  image  name  field 

12-  492  FNDPLD  -  Find  physical  link  data  base 

13-  527  SNACIR  -  Determine  substate  if  circuit  owned  by  SNA 
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CIREST  - 
SNACIR  - 

527 
528 
529 
530 
531 
532 
533 
55^ 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
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549 

550  001470 

551  001470 

552  001474 

553  001500 

554  001504 

555  001506 

556  001512 
557 

558  001514 

559  001520 

560  001522 

561  001526 

562  001530 
563 

564  001532 

565  001534 

566  001536 

567  001546 

568  001554 

569  001556 

570  001564 
571 

572  001566 

573  001600 
574 

575  001602 

576  001604 

577  001610 

578  001612 

579  001616 

580  001620 

581  001622 

582  001626 
583 


000000 
000004 
000002 
000006 


.SBTTL  SNACIR  -  Determine  substate  if  circuit  owned  by  SNA 

*»-SNAC]R-DETERMINE  SUBSTATE  IF  CIRCUIT  OWNED  BY  SNA 

INPUTS: 

R3  =  ADDRESS  OF  NEXT  FREE  BYTE  IN  OUTPUT  BUFFER 
R4  =  ADDRESS  OF  CONTEXT  BLOCK 

OUTPUTS: 

R3  =  ADDRESS  OF  NEXT  FREE  BYTE  IN  OUTPUT  BUFFER 

CC  =  LINE  OWNED  BY  SNA,  SUBSTATE  LOADED  IF  APPROPRIATE 

CS  ~  LINE  NOT  OWNED  BY  SNA 

THIS  ROUTINE  IS  ONLY  CALLED  IF  THE  LINE  STATE  IS  "ON" 


P.CHAN= 
P.STSC= 
PU.SCP= 
S$PUNX= 

SNACIR: 


012702 

103430 
120264 
001025 

017705 
001422 
016505 
001417 
012500 

005300 
100414 

126164 
001366 
016166 
000405 


103411 
032702 
001006 
004567 
000001 
000201 
112723 


074361 

000055 

OOOOOOG 
000006 


10$: 


000000  000054 
000004  OOOOOOG 


000002 
OOOOOOG 

000000 


20$: 
30$: 

40$: 


50$: 


SUSTK$ 

MOV 

CALL 

BCS 

CMP8 

BNE 

MOV 
BEO 
MOV 
BEQ 
MOV 

DEC 

BMI 

CEACC$ 

CMPB 

BNE 

MOV 

BR 

RETC 
RETURN 

BCS 

BIT 

BNE 

JSR 
.WORD 
.WORD 

Move 

RETURN 


40$ 

#''fiSNA,R2 

aPDVlD 

20$ 

R2,L$PDv;R4; 

20i 

aSNAPT,R5 

20$ 

S$PUNX(R5),R5 

20$ 

(R5)+,R0 

RO 

20$ 

(R5)+,R1 

P.CHAN(R1),L$CHN(R4) 

10$ 

P.STSC(R1),R$R2(SP) 

30$ 

RO 


50$ 

*PU.SCP,R2 
50$ 
R5,SETPAR 

mpIsub 

MT$C0D!1 
#MS$STA,(R3)+ 


DEFINE  PU  DATABASE  SYMBOLS 
LOCALLY  TO  AVOID  NEED 
TO  ASSEMBLE  WITH  SNA  MACROS 


ENTER  SYSTEM  STATE 
GET  SNA'S  PDV  INDEX 

;  RJK05 
IF  CS,  SNA  NOT  IN  SYSTEM     ;**-1 
LINE  OWNED  BY  SNA? 
NO 

POINT  TO  HOME  BLOCK         ;  RJK05 
WHOOPS.  NOT  LOADED         ;**-1 
POINT  TO  PU  INDEX 
AGAIN,  WHOOPS 
GET  PU  COUNT 

ALL  PUS  SCAWED? 

YES,  NOT    .^Y  OWNED  BY  SNA 

MAP  NEXT  ^  DATABASE 

IS  THIS  THE  PU  FOR  THE  CHANNEL? 

NO,  TRY  NEXT  ONE 

RETURN  PU  STATUS  IN  TASK  R2 

RETURN 

;  SET  USER  C-BIT 

;  RETURN  TO  USER  MODE  AT  40$ 

IF  CS,  LINE  NOT  OWNED  BY  SNA 
IS  PU  IN  SESSION  WITH  SSCP? 
YES,  NO  SUBSTATE  NEEDED 
ELSE  RETURN  SUBSTATE 

ONE  CODED  BYTE 
SUBSTATE=  STARTING 
RETURN 
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Symbol 

table 

MPSBUF 

000170 

HPSGRP 

000541 

MPSMVE 

000145 

MPSRRT 

002213 

MPSXMT 

002166 

MPSBUP 

006324 

MPSGTY 

002224 

MPSHVI 

001634 

MPSRST 

002212 

MPSXPF 

000242 

HPSBUS 

001643 

MPSHAD 

001757 

HPSMVR 

001751 

MPSRSV 

001754 

MPSXPL 

000244 

MPSCAC 

001750 

mpshbt 

002142 

MPSMWN 

002154 

MPSRSZ 

091?5^ 

HPSXPT 

?§§?49 

MPtCAS 

001762 

MPSHDD 

000162 

MPSMXB 

002172 

MPSRTI 

001616 

HPSXXX 

Mim 

MPSCAT 

002210 

MPIHTM 

001612 

MPSMXC 

000466 

MPSRTM 

001611 

MPS5ST 

004406 

MPSCCS 

004406 

MP$HWA 

002210 

MPSHXR 

001630 

HPSRVE 

001604 

HSSACT 

999991 

MPSCHN 

002141 

MPSIAT 

001322 

MPSHXU 

002143 

MPSRVT 

000156 

HSSADU 

000010 

hp$c:r 

000144 

IPSIDE 

000144 

MPSNAA 

006335 

MPSSAC 

000514 

MSSALO 

000007 

MPSCLK 

002131 

MPSIDP 

006327 

MPSNAC 

001130 

MPSSAD 

000543 

MSSASE 

000006 

HPSCLN 

002126 

MPSIHO 

000215 

HPSNAP 

006326 

MPSSCA 

000310 

MSSATR 

000011 

MPSCLT 

002211 

HPSINA 

002177 

MPSNCT 

000240 

HPSSCO 

000144 

MSSAUT 

000000 

HPICMB 

002142 

MPSIND 

002204 

MPSNET 

002114 

MPSSCT 

002176 

MSSCLE 

000003 

MPtCMK 

000537 

MPS  NI 

002201 

HPSNLI 

000765 

HPSSDU 

000203 

MSSDED 

000004 

MPSCHX 

002153 

MPS  II 

000776 

MPSNNA 

000764 

MPSSDV 

000160 

MSSDIE 

000003 

MP$CNO 

000310 

MPSLAA 

000231 

MPSNOD 

000500 

MPSSEH 

004401 

MSSDUM 

000004 

MPSCNU 

001753 

HPSLAN 

000234 

MPSNRA 

006334 

HPSSER 

000144 

MSSFAI 

000013 

MPS'"  OB 

000311 

MPSLAR 

000202 

MPJNRu 

000214 

MPSSET 

000000 

MSSGLO 

000000 

MPSCON 

002126 

HPSLAS 

000012 

MPSNSA 

001617 

MPSSGZ 

001644 

MSSHOL 

000002 

MPSCOS 

001604 

MPSLBS 

000203 

MPSNTI 

002141 

MPSSID 

000176 

MSSJNA 

000002 

MPICPF 

000230 

MPSLCO 

000226 

HPSNUM 

001642 

MPSSIN 

000310 

HSSLOA 

000003 

MPSCPL 

000232 

MPSLCT 

000156 

MPSNVE 

001274 

MPSSLI 

000156 

MSSLOO 

000002 

MPSCPT 

000226 

HPSLHL 

000232 

HPSNXN= 

001476 

MPSSLO 

000171 

MSSOFF 

000001 

HPSCPU 

000161 

HPSLLE 

000227 

MPSOAC 

000632 

MPSSMX 

002202 

MSSON 

000000 

MPSCSZ 

001755 

HPSLLO 

004432 

MPSOAN 

000620 

MPSSND 

000500 

MSSPRO 

000006 

MPSCUS 

002127 

HPSLHB 

002152 

MPSOCO 

000776 

MPSSNP 

0961?? 

MSSREA 

000004 

HPSCVA 

000540 

MPSLMX 

002200 

MPSOHO 

000214 

MPSSNU 

000542 

MSSREF 

000001 

MPSDAL 

002570 

MPSLNA 

000144 

MPSONA 

000764 

MPSSOB 

000524 

MSSRES 

000003 

HP$DCO= 

001464 

MPSLNO 

000233 

MPSONR 

002114 

MPSSPA 

000157 

MSSRST 

OOC'OI 

MPSDDT 

002177 

MPSLOA 

000170 

MPSOQL 

001453 

MPSSPR 

000536 

HSSRSX 

000002 

MPSDEL 

001131 

MPSLOG 

004514 

MPSOTI 

000777 

MPSSPS 

59951? 

MSSRT 

999995 

MPSDES 

000156 

MPSLCO 

000620 

MPSOTY 

001022 

MPSSTA 

000000 

MSSSER 

000002 

MPSDEV 

002114 

MPSLTM 

001613 

MPSOUS 

000777 

HPSSTI 

002140 

HSSSHU 

000002 

MPSDFA 

001320 

MPSLTY 

004533 

MPSOVE 

001010 

HPSSTT 

002201 

MSSSRV 

990997 

MP$DHO= 

001465 

HPSLWI 

000230 

MPSOUN 

004374 

MPSSTY 

000175 

MSSSTA 

ODOOOO 

MPSDIA 

000173 

MPSHAC 

004420 

MPSPAR 

000036 

MPS SUB 

000001 

MSSSYN 

000012 

mpIdlb 

002571 

MPSMAD 

001630 

MPSPAS 

000513 

MPSSUR 

000156 

MSSTER 

999991 

MPSDLG 

004521 

MPSMAP 

006323 

MPSPCH 

002152 

MPSSUS 

000512 

MSSTOP 

000003 

^$011  = 

001466 

MPSMAR 

001635 

MPSPCO 

000024 

MPSSVR 

000163 

MSSTRl 

000005 

MP$DLT 

002200 

MPSMAV 

006321 

MPSPCT 

000144 

MPSSWI 

002260 

MSSUNR 

000005 

MPSDRO 

001441 

MPSMSN 

001636 

MPSPDT 

002114 

MPSSYP 

002424 

MSSVMS 

000004 

MPSDST 

000454 

MPSMBR 

001637 

HPSPHA 

000170 

HPSTFL 

000156 

MS. DON 

177600 

HPSDTE 

002140 

MPSMBU 

001642 

HPSPHY 

000012 

MPSTHI 

002206 

MS.HOR 

000002 

MP$DTY= 

001452 

MPSMCB 

000156 

MPSPLl 

000025 

MPSTH2 

002205 

MS. PAR 

000003 

MPSDUA 

000207 

MPSMCO 

001632 

MPSPLN 

002140 

MPSTH3 

002202 

MS. sue 

000001 

MPSDUC 

000210 

HPSMDE 

004421 

MPSPLO 

000012 

MPSTLN 

000202 

MTSAR4 

000003 

MPSDUM 

000202 

MPSMHO 

001633 

MPSPMC 

004374 

MPSTLO 

000172 

HTSASC 

000100 

MPSDUP 

002127 

MPSMLB 

000202 

MPSPNT 

002126 

MPSTPA 

004375 

MTSBIL 

000001 

MPIDVC 

002114 

MPSMLK 

001306 

HPSPRI 

004411 

HPSTRI 

002164 

MTSBYS 

000011 

MPSDWE 

001321 

MPSMLN 

001631 

MPSPRO 

002130 

MPSTST 

000144 

MTSCI 

000007 

NPSELT 

000157 

MPSHLP 

006333 

MPSPSS 

001763 

MPSTYP 

002130 

MTSCLE 

000077 

MPSETV 

001605 

MPSMRB 

002171 

MPSPST 

001762 

MPSUCS 

09^^?^ 

MTSCOD 

000200 

MPSEVE 

000311 

MPSMRO 

001605 

MPSRET 

001631 

MPSUSR 

001750 

MTSCON 

000001 

MP$FNC 

001752 

MPSMRP 

006322 

MPSRFA 

001323 

MPSVEC 

004410 

MTSDMC 

99999^ 

MPSGDT 

002222 

MPSMRT 

002153 

MPSRHX 

002201 

MPSVER 

004406 

MTSETH 

000006 

MPSGNM 

002223 

MPSMRV 

006320 

HPSRPA 

004374 

MPSWDF 

002165 

MTSHEX 

000040 

MPSGRO 

002115 

MPSMSB 

000170 

MPSRPR 

001606 

MPSWMX 

002177 

MTSLPB 

000005 
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SYMBOL  VALUE 


REFERENCES 


LStNTL 

=  000001 

#5-67 

.SSNUM 

=  000100 

#5-67 

LSSOUN 

=  000010 

#5-67 

.SSPLT 

=  OOAOOO 

#5-67 

LSSPRO 

=  010000 

#5-67 

LSSPVC 

=  020053 

#5-67 

LSSRET 

=  000200 

#5-67 

LSSSER 

=  100000 

#5-b7 

.S$STA 

=  000002 

#5-67 

LSSSVC 

=  000362 

#5-67 

.S$TAD 

=  000020 

#5-67 

LSSTHl 

=  000100 

#5-67 

LS$TH2 

=  000200 

#5-67 

LS$TH3 

=  OOO^iOO 

#5-67 

LSSXMT 

=  0^0000 

#5-67 

LSACT 

0001 OA 

#5-67 

L$BBT 

0001  u 

#5-67 

L$BLK 

000262 

#5-67 

LIBSA 

000122 

#5-67 

LtBSD 

000123 

#5-67 

lSBSI 

0001 2A 

#5-67 

LSBUF 

000060 

#5-67 

LSCHN 

000054 

#5-67 

LSCMB 

000234 

#5-67 

LICOS 

000101 

#5-67 

L$CTB 

000053 

#5-67 

LSCTL 

000002 

#5-67 

LSCUS 

000260 

#5-67 

LSDDM 

000000 

#5-67 

LSDDT 

000106 

#5-67 

L$DEA 

000105 

#5-67 

L$DLT 

000110 

#5-67 

L$DTE 

000240 

#5-67 

LSDTEL 

000236 

#5-67 

LSDTEP 

000250 

#5-67 

LSFLG 

000064 

#5-67 

LSFLX 

000076 

#5-67 

LSFLI 

000066 

#5-67 

L$FL2 

000070 

#5-67 

L$HBT 

000254 

#5-67 

LSHTM 

000226 

#5-67 

L$INA 

000125 

#5-67 

LSIND 

000126 

#5-67 

L$1NI 

000127 

#5-67 

L$LCT 

000224 

#5-67 

L$LEN 

000264 

#5-67 

L$LMB 

000234 

#5-67 

LSLTM 

000230 

#5-67 

1  $MRT 

000253 

#5-67 

LSMSG 

000056 

#5-67 

LSMTYP 

000075 

#5-67 

LSMWN 

000252 

#5-67 

5-67 


5-67 


5-67 


*6-111 
6-123 


6-142 


♦6-112 


•6-149 


6-117 
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A$$CHK= 

000000 

A$$CPS= 

000000 

A$$PR1= 

000000 

A$$TRP= 

000000 

3IT0  = 

000001 

31T1  = 

000002 

3IT10  = 

002000 

3ITn  = 

OOAOOO 

3IT12  = 

010000 

31T13  = 

020000 

BITK  = 

040000 

BIT15  = 

100000 

BIT2  = 

000004 

BIT3  = 

000010 

BIT4  = 

000020 

BITS  = 

000040 

BIT6   := 

000100 

BIT7  = 

000200 

B1T8  = 

000400 

BIT9  = 

001000 

BSIO 

000003 

B$11 

000004 

B$12 

000005 

B$5 

000000 

BS6 

000001 

B$7 

000002 

B$7S10 

000006 

C$SCKP= 

000000 

C$$ORE= 

000400 

C$$RSH= 

177564 

DACIR 

000040RG 

DALIN 

000030RG 

DATBO 

OOOOOOR 

0ATB1 

000006R 

D$$BUG= 

177514 

D$$ISK= 

000000 

D$IL11= 

000001 

D$SyNC= 

000000 

D$$YNM= 

000000 

E$$XPR= 

000000 

FMTCOU= 

******  G 

F$$LVL= 

000001 

G$$TPP=: 

000000 

G$$TSS= 

000000 

.    ASS.      177776 
000146 
Errors   detected: 


000 
001 

0 


G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
KISAR6= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LDSLP  = 
LF$END= 
LF$MLT= 
LF$REA= 
LF$SEG= 
LF$S]G= 
LF$SKP= 
LF$VR2= 
LF$ZER= 
LF.ACT= 
LF.BRO= 
LF.BWT= 
LF.ENA= 
LF.LPB= 
LF.HDC= 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.R^/'^ 
LF.SEh- 
LF.TIM= 
LF.UNL= 
LF.X2P= 
LN.CLO= 
LN.DUM= 
LN.LOA= 
LN.LnO= 
LN.OAU= 
LN.OFF= 
LN.ON  = 
LN.OOP= 
LN.OPE= 
LN.REF= 
LN.SER= 


000000 

000000 

000000 

000000 

»**♦»«  GX 

177546 

177546 

000000 

000074 

000000 

000020 

040000 

000001 

100000 

000040 

000004 

000010 

000002 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

onoooo 

000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 


(RW,I,G8L,ABS,0VR) 
(RU,i,LCL,REL,CON) 


♦•♦  Assembler  statistics 


Work  file  reads:  0 

Work  file  writes:  0 

Size  of  wor-k  file:  14828  Words  (  58  Pages) 

Size  of  core  pool:  15496  Words  (  59  Pages) 


LN.STA= 

LN.SUB= 

LN.TR1= 

LP$MPT= 

L°$MUX= 

LP$TRB= 

LP$UNT= 

LP$WCN= 

LP$WDV= 

LP$WLD= 

LP$WTR= 

LP$WUN= 

LSADJ 

L$BUF 

L$CHN 

LSCOU 

L$CTS 

LSCTL 

L$DDM 

L$FLG 

LSFLX 

LSLEN 

L$LTM 

L$«SG 

LSMTYP 

L$NAM 

L$NLEN= 

L$N0D 

LSNXT 

L$OPT 

L$PAR 

L$PDV 

LSPFG 

L$PL8 

LSPRO 

LSPVC 

L$SCN 

LSSCR 

LSSLEN 

L$SLT 

LSSNH 

LSSYL 

LSTNM 

LSTPT 


000017 
000360 
000006 
000010 
000004 
000002 
000001 
000040 
000020 
000360 
000200 
000100 
000110 
000060 
000054 
000114 
000053 
000002 
000000 
000064 
000070 
000124 
000070 
000056 
000067 
000000 
000020 
000112 
000044 
000062 
000120 
000055 
000041 
000116 
000067 
000004 
000020 
000072 
000066 
000042 
000046 
000122 
000052 
00C050 


LSTRB 

L$TSZ 

L$TYP 

LSUNT 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COSI 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLH 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

M$$CRB= 

H$$CRX= 

H$$FCS= 

M$$MGE= 

H$$NET= 

H$$0VR= 

N$$ACC= 

N$$EUF= 

N$$LDV= 

N$$MCP= 

N$$riLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

P$$P45= 

P$$URD= 

Q$$OPT= 

R$$DER= 

RSSKll^ 

R$$SN[)= 


000040 
000070 
000063 
000003 
000000 
000000 
000001 
000000 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
000014 
000021 
000013 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000000 
000000 
000010 
000000 
000001 
000000 


R$$11M= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NHST 

S . OWNR 

T$$KHG= 

T$$MIN= 

T.DR 

T.ER 

T.FL 

T.LEN  = 

T.LN 

T.OFFS= 

T.RA 


.RC 

.RCV 

.RCVB 

.SP 

.TIME 

.TIMR 

.TLZ 
T.VCT 
T.XC 
T.XMT 
T.XMTB 
T.XU 
V$$CTR= 
XPTCOU= 
X$$DBT= 
$$BM  = 
$$REG  = 
$$WID  = 


000000 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000000 

000000 

000002 

000024 

000004 

000070 

000022 

000020  G 

000006 

000010 

000036 

000042 

000020 

000001 

000000 

000046 

177760 

000016 

000026 

000032 

000012 

001000 

******  GX 

000000 

000000 

000000 

060000 
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CONTEXT  AREA  DEFINITIONS 

000002 
000003 
000004 
000005 
000006 

000000 


8$7: 

.SLKB   1 

B$10: 

.BLKB 

S$11: 

.8LKB 

B$12: 

.BLKB 

B$7S10t 

.BLKB   1 

.['.'EN 

.PSECT 

BASE  TABLE  +  7 

BASE  TABLE  +  10 

BASE  TABLE  +  11 

BASE  TABLE  +  12 

SUM  OF  BASE  TABLE  7  AND  10 
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AA 
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EEEEEEEE 

AA 

AA 

UU 

UU 

NN  NN  NN 

DD      DD 
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EE 

AAAAAAAAAA 

UU 

UU 

NN    NNNN 

DO      DD 
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AA 
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UU 
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AA 

AA 
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DDDDDDDD 
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AA 

AA 
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LL 

ssssssss 

TTTTr 

TTTTT 

LL 

SSSSSS5S 

TTTTT 

Mill 

_L 

ss 

-L 

ss 

-L 

ss 

.L 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 
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000002 
000003 
OOOOOA 
000005 
000006 

000000 
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B$7: 

BLKB   1 

B$'0: 

BLKB   1 

B$1: 

BLKB   1 

B$12: 

BLKB   1 

B$7S10: 

BLKB   1 

EVEN 

PSECT 

BASE  TABLE  *  7 

BASE  TABLE  +  10 

BASE  TABLE  +  11 

BASE  TABLE  +  12 

SUM  Of  BASE  TABLE  7  AND  10 
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SYMBOL  CROSS  REFERENCE 
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PAGE  1 

CREF   04.00 


SYMBOL   VALUE 


BITO 

BITl 

B1T10 

BIT11 

B1T12 

B1T13 

BIT14 

BIT15 

B1T2 

BIT3 

BIT4 

BITS 

BIT6 

BIT? 

BITS 

BIT9 

B$10 

B$n 

B$12 

B$5 

B$6 

B$7 

B$7S10 

CE.ABO 

CE.ILN 

CE.UNS 

CM.CIR 

CM. LIN 

COPY 

CURCTX 


000001 
000002 
002000 
004000 
010000 
020000 
0400O0 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000003 
000004 
000005 
000000 
000001 
000002 
000006 
100362 
100350 
100344 
000002 
000000 
000664 


GX 


REFERENCES 

#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 

8-190 

8-186 

8-188 

9-270 

8-174 

8-114 

9-227 


9-263 
8-128 


#10-296 


C.ADD 

000034 

»9-272 

•9-273 

C.BUF1 

000014 

10-299 

10-300 

C.CNT1 

000020 

8-110 

C.CNT2 

000030 

8-131 

•9-236 

C.FLG 

000022 

8-111 

C.FLG1 

000022 

8-136 

8-176 

•9-265 

♦9-270 

C.FLG2 

000032 

8-138 

C.FNC 

000010 

*9-259 

9-261 

C.LIN 

000006 

•9-230 

C.NSP 

000004 

»9-227 

C.RSV 

000002 

•9-261 

C.STA 

000007 

•9-238 

C.STS 

000012 

8-103 

ENTITY 

000000 

R 

#7-67 

♦8-96 

9-266 

F C.MAN 

=  000024 

9-254 

9-257 

FMTCOU 

=  *t**** 

fix 

8-163 

8-167 

FORK 

=  *♦♦**♦ 

fix 

8-100 

FS.REA 

=  001000 

9-254 

FS.ZER 

=  002000 

9-257 

GETXPT 

000732 

R 

8-179 

#11-324 

I$$AS 

~   ****** 

5-55 

KISAR6 

-   ****** 

GX 

8-120 

•8-134 

•8-169 

10-297 

♦10-299 


♦10-305 
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68 
69 
70 
71 
72 
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READ/AND  OR  ZERO  DLM  C  MACRO  V0S.03b  Saturri3y  29-Jun-85 
TABLE  ENTRY 


G  13 

12:2, 
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.S8TTL  DISPATCH  TABLE  ENTRY 

GENERATE  AN  ENTRY  IN  THE  DISPATCH  TABLES  OF  THE 
LINE  AND  CIRCUIT  READ  COUNTER  MODULES. 


.IF  DF 

.PSECT 

.WORD 

.PSECT 

.ENDC 


H$$11S  !  S$$BAS  I  R$$RTR  I  R$$PRO 

$$DLCO 

*RDLM,DLMCOU 


READ  CIRCUIT  COUNTERS  ENTRYPOINT 


_    DCAr\/AMri    no    7CDn    ni  m 
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G  U 

DLMCOU 

CREATED  BY  MACRO  ON  29- 

-JUN-85  AT  12.'23     PAGE 

5 

MACRO  CROSS 

REFERENCE 

CREF 

OA.OO 

MACRO  NAME 

REFERENCES 

BIAS 

#5-53 

11-16'i 

11-175 

CALL 

10-107 

10-109 

10-120     10-122 

11-154 

CALLR 

#5-53 

CEACCt 

#5-55 

CIRCXt 

#5-55 

6-65 

CNTR$$ 

#5-57 

OATA$$ 

#5-57 

DBLOKt 

#5-57 

DLBM$ 

#9-86 

#9-87 

DLCOUS 

#5-53 

9-86 

9-87 

DLMDFS 

#5-54 

5-58 

MANDFS 

#5-57 

5-57 

MAP 

#5-53 

11-158 

MBILDS 

#5-55 

5-57 

PDVDFS 

#5-5A 

5-60 

RE  SWAP 

#5-53 

10-123 

RESRG 

#5-53 

0-121 

RETURN 

10-125 

■  1-185 

SAVMAP 

#5-53 

10-108 

SAVRG 

#5-53 

10-119 

SLTDfS 

#5-54 

5-59 

SWSTKS 

10-107 

H  U 
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A$$CHK.= 

A$tCPS= 

A$$Pftl= 

A$$TRP= 

Ct$CI<;P= 

Ct$ORE= 

CttRSH= 

DEALUN= 

DLXERR 

DLXLUN 

DLXMSG 

DLXQIO 

DLXTXT 

D$$BUG= 

D$$ISK= 

0$$L11= 

D$$YNC= 

D$$yNM= 

E$$XPR= 

FMTLIN= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTI<;  = 

G$$WRD= 

G.LUCU=: 

G.LUFB= 

G.LUNA= 

G.LUNU= 

IE.UPN= 

lOSB 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LCSNTL^ 

LC$OWN= 

LD$LP  = 

LF$MLT= 

LF$REA= 

LF$SEG= 

LF$SKP= 


000000 

000000 

000000 

000000 

000000 

000^00 

17756A 

**••»»  GX 

000020R 

000200RG 

OOOOOAR 

000026RG 

000005R 

1775U 

000000 

000001 

000000 

000000 

000000 

000001 

000000 

000000 

000000 

000000 

OOOOOA 

000003 

000000 

000002 

»»♦«»*  GX 

OOOOOOR 

000000 

000000 

177546 

177546 

000000 

000074 

000200 

000400 

OOOOCO 

0400&0 

000001 

100000 

000004 


.  ABS.  000264 
000266 
Errors  detected: 


000 
001 
0 


LF$VR2= 
LF$ZER= 
LP$MPT= 
LP$MIIX  = 
LPtNXC= 
LP$TRB= 
LP$UNT= 
LP$WCN= 
LP$WDV= 
LP$WLD= 
LP$UTR= 
LP$WUN= 
LS$ACT=: 
LS$BBT= 
LStBLK= 
LS$BSA= 
LS$BSD= 
LS$BSI= 
I.S$CHN= 
LS$CMB= 
LS$COS= 
LS$CUS= 
LS$DDT= 
LS$DEA= 
LS$DLM= 
LS$DLT= 
LS$DTE= 
LS$HBT= 
LS$HTM= 
LS$INA= 
LS$IND= 
LS$INI= 
LS$LCT= 
LS$LMB= 
LS$LOO= 
LS$MDT= 
LS$MRT= 
LS$MWN= 
LS$MXB= 
LS$MXR= 
LS$MXW= 
LS$NMT= 
LS$NOR= 


000010 
000002 
000010 
000004 
100000 
000002 
000001 
000040 
000020 
000360 
000200 
000100 
000040 
010000 
001000 
000001 
000002 
000004 
000001 
000002 
000004 
000004 
001000 
000100 
001004 
002000 
000010 
000400 
010000 
000010 
000020 
000040 
020000 
000002 
040000 
020000 
000020 
000040 
001000 
000020 
000040 
020000 
100000 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 


»**  Assembler  statistics 


Work  file  reads:  0 

Work  file  writes:  0 

Size  of  work  file:  13960  Words  (  55  Pages) 

Size  of  core  pool:  15496  Words  (  59  Pages) 

Operating  system:  RSX-11M/PLUS 


LS$NTi= 

LS$fvlTL  = 

LS$NUM= 

LS$OWN= 

LS$PLT= 

LS$PRO= 

LS$PVC= 

LS$RET= 

LS$SER= 

LS$STA= 

LS$SVC= 

LS$TAD= 

LS$TH1= 

LS$TH2= 

LS$TH3= 

LS$XMT= 

L$ACT 

L$BBT 

L$BLK 

L$BSA 

LIBSD 

LSBSJ 

LSBUF 

LSCHN 

L$CMB 

L$COS 

L$CT8 

L$CTL 

L$CUS 

LIDDM 

L$DDT 

L$DEA 

L$DLT 

L$DTE 

LSDTEL 

L$D7EP 

L$FLG 

L$FLX 

LSFLI 

L$F12 

L$HB 

L$HTM 

L$JNA 


000200 
000001 
000100 
000010 
004000 
010000 
020053 
000200 
100000 
000002 
000362 
000020 
000100 
000200 
000400 
040000 
000104 
000114 
000262 
000122 
000123 
000124 
000060 
000054 
000234 
000101 
000053 
000002 
000260 
000000 
000106 
000105 
000110 
000240 
000236 
000250 
000064 
000076 
000066 
000070 
000254 
000226 
000125 


L$1ND 

iii 

L$rRB 

L$INI 

L$TYP 

L$LCT 

L$UNT 

L$LEN 

000234 

L$XCH 

L$LMB 

L$XHT 

L$LTM 

000230 

L$IASG= 

L$MRT 

000253 

L$$DRV= 

L$MSG 

000056 

L$$P11= 

LSMTVP 

000075 

L$$11R= 

L$MUN 

000252 

M$$CRB= 

LSMXB 

000133 

M$$CRX= 

L$MXR 

000253 

M$$FCS= 

Lsnxw 

000252 

M$$MGE= 

L$NAM 

000000 

M$$NET= 

L$NLEN= 

000020 

M$$OVR= 

L$NMT 

000116 

N$$ACC= 

L$NTI 

000256 

N$$BUF= 

L$NTL 

000134 

N$$LDV= 

L$NUM 

000240 

N$$MCP= 

LSNUML 

000236 

N$$MLL= 

L$NXT 

000044 

N$$HOV= 

L$0PT 

000062 

NI$NCT= 

LSOUN 

000102 

N$$PEM= 

L$PAR 

000072 

P$$P45= 

LSPDV 

000055 

P$$WRD= 

L$PFG 

000041 

Q$$OPT= 

LtPLT 

000112 

R$$DER= 

L$PR0 

000075 

R$$K11= 

L$PVC 

000004 

R$$SND= 

L$RET 

000256 

R$$11M= 

L$SCN 

000020 

S$$WRG= 

L$SCR 

000166 

S$$YSZ= 

L$SER 

000230 

T$$KMG= 

LSSLEN 

000074 

T$$M!N= 

L$SLT 

000042 

V$$CTR= 

L$SNM 

000046 

X$$DBT= 

L$STA 

000100 

$CBDSG= 

L$TAD 

000103 

$DSW  = 

L$TH1 

000130 

$SAVAL= 

L$TH2 

000131 

$TMEFN= 

L$TH3 

000132 

$TMLUN= 

L$TNM 

000052 

$$$ARG= 

LSTPT 

000050 

$$$OST= 

000040 

000063 

000003 

000232 

000120 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

000000 

007600 

000000 

000000 

001000 

000000 

**♦♦*»  GX 

******  GX 

******  GX 

******  GX 

******  GX 

000002 

000014 
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000002 
OOOOO'. 
000010 
000020 
OOOOAO 
000100 
000200 
000360 


000C01 
000002 
000004 
000010 
000020 
OOOOAO 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
1 00000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
010000 
020000 
040000 
100000 


LP$TR8 
LPSMUX 
LPSMPT 
LPSWDV 
LPSWCN 
LPSUUN 
LPSWTR 
LP$WLD 


2 

4 
10 

^8 

100 
200 


TRIBUTARY  NUMBER  FOUND 

DEVICE  IS  MUX 

LINE  IS  MULTIPOINT 

WILD  CARD  DEVICE  NAME  FOUND 

WILD  CARD  CONTROLLER  NUMBER  FOUND 

WILD  CARD  UNIT  NUMBER  FOUND 

WILD  CARD  TRIBUTARY  NUMBER  FOUND 


=  LP$WOVlLP$WCNILf'$WUNILP$WTR  ;  WILD  CARD  FIELD  MASK 


FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 


LS$NTL= 
LS$STA= 
LS$COS= 
LS$OWN= 
LS$TAD= 
LS$ACT= 
LS$DEA= 
LC$NTL= 
LC$OWN= 
LS$DDT= 
LSSDLT: 
LSSPLT: 
LS$BBT= 
LSSNMT: 
LSSXMT: 
LS$SER= 


2 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 


NTL  SET  FUNCTION 

SET  STATE 

SET  COST 

SET  OWNER 

SET  TRIBUTARY  ADDRESS 

SET  MULTIPOINT  ACTIVE 

SET  MULTIPOINT  DEAD 

NTL  CLEAR  FUNCTION 

CLEAR  OWNER 

SET  DEAD  TIMER 

SET  DELAY  TIMER 

SET  POLL  TIMER 

SET  BABBLE  TIMER 

SET  NORMAL  TIMER 

SET  TRANSMIT  TIMER 

SET  SERVICE  [ENABLE/DISABLE] 


FLAGS  WORD  BIT  DEFINITIONS  (LSFLD 

LS$BSA=1  ;  SET  ACTIVE  BASE 

LS$8SD=2  ;  SET  DYING  BASE 

LS$8SI=4  ;  SET  INACTIVE  BASE 

LS$INA=10  ;  SET  ACTIVE  INCREMENT 

LS$IND=20  ;  SET  DYING  INCREMENT 

LS$INI=40  ;  SET  INACTIVE  INCREMENT 

LS$TH1=100  ;  SET  DEAD  THRESHOLD 

LS$TH2=200  ;  SET  DYING  THRESHOLD 

LS$TH3=400  ;  SET  INACTIVE  THRESHOLD 

LS$MX8=1000  ;  SET  MAXIMUM  BLOCKS 

LS$HTM=10000  ;  SET  HELLO  TIMER 

LS$MDT=20000  ;  SET  MODEM  TEST 

LS$LOO=40000  ;  SET  CONTROLLER  L00P8ACK 

LS$NOR=100000  ;  SET  CONTROLLER  NORMAL 

.If  DF  R$$PRO  ;  PRO/DFCNET 

LOOPBACK  TYPE  WORD  BIT  DEFINITIONS  (L$LTY) 


LS$INT  =  0 
LSSEXT  =  1 


INTERNAL  LOOPBACK 
EXTERNA;  LOOPBACK 


MODEM  TEST  TYPE  WORD  BIT  DEFINFIONS  0   DT) 


LS$LCL  =  0 


LSSREM 
LSSOFF 
.ENDC 


1 
=  2 


Df  R$$PRO 


LC.  ..  MODEM  TEST 
REMOT?  MODEM  TEST 
SHUT  OFF  M^IEM  TESTS 
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136  000124 

010346 

MOV 

R3,-(SP) 
(R5) 

137  000126 

CALL 

138  000130 

012602 

MOV 

(SP)+,R2 

139  000132 

105774 

000060 

TSTB 

aL$BUF(R4)           ; 

UO  000136 

100411 

BM 

12$ 

141  000140 

032764 

000040  000064 

BI 

#LF$SIG,L$FLG(R4) 

142  000146 

001405 

BEQ 

12$                ; 

143  000150 

020203 

CMP 

R2,R3 
12i 

144  000152 

001003 

BNE 

145  000154 

016403 

000060 

MOV 

L$BUF(R4),R3 

146  000160 

000724 

BR 

1$ 

147 

148  000162 

000406 

12$: 

BR 

30$ 

149 

150  000164 

022525 

15$: 

CMP 

(R5)+,(R5)t 

151  000166 

000746 

BR 

10$ 

152  000170 

0'  6403 

000060 

20$: 

MOV 

L$8UF(R4),R3 

153  000174 

154 

155 

156 

157  000200 

112723 

177777 

MOVB 

#ME.FUN,(R3)+ 

;  SET 

UP  REGISTERS  FOR  RETURN 

010302 

^0$: 

MOV 

R3,R2 

158  000202 

016403 

000060 

MOV 

L$BUF(R4),R3 

159  000206 

160302 

SUB 

R3,R2 
(R3),R0 

160  000210 

111300 

MOVB 

161  000212 

000241 

CLC 

162  000214 

100003 

BPL 

40$ 

163  000216 

005064 

000064 

CLR 

L$FLG(R4) 

164  000222 

000261 

SEC 

165  000224 

40$: 

RETURN 

PUSH  BUFFER  POINTER 

DISPATCH  TO  ROUTINE 

RECOVER  PREVIOUS  BUFFER  POINTER 

ERROR  ? 

YES  -  PLENTY  SIGNIFIGANT 

SHOWING  SIGNIFIGANT  CIRCUITS  ? 

IF  EQ,  NO 

ELSE,  WAS  THIS  ONE  NON-TRIVIAL  ? 

IF  NE,  YES 

ELSE  RE-INITIALIZE  BUFFER  POINTER 

AND  .;bEP  LOOKING 

AND  FINISH  MESSAGE 

POINT  TO  NEXT  FUNCTION 
AND  SEE  IF  IT  MATCHES 
RESTORE  BUFFER  POINTER 
SET  ILLEGAL  FUNCTION  ERROR 


COPY  CURRENT  POINTER  INTO  BUFFER 

RESTORE  INITALIZE  BUFFER  POINTER 

CALC  LENGTH  OF  MESSAGE 

SET  THE  RETURN  CODE 

ASSUME  SUCCESS 

IF  PL,  SUCCESS  -  RETURN 

ELSE,  ZERO  FLAGS 

SET  ERROR  RETURN 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 

a 

42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE  CIREST  -  READ  CIRCUIT  STATUS 

.IDENT  /V05.00/ 

.ENABL  LC 

.NLIST  CND 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  READ  LINE  STATUS  INFORMATION 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  01-JUL-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

2.00  16-APR-82 

DECNET-IIM  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-IIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
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58^ 


000001 


.END 
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MTSMAX 

MTSMUL 

HTSNLE 

MTtNON 

HT$NR4 

MTSNTY 

HTSOCT 

MTSPHA 

MTSPOI 

HT$QP2 

HTSROU 

MTSROA 

MTSSEC 

MTSSGD 

MTSSYS 

MTSTER 

MTSTRI 

HTSTYP 

MT$USD 

MT$X25 

MUIINC 

MUSOUT 

MUSPER 

MVSIII 

MVSIV 

MXSACT 

HXSCIR 

MXSCLN 

MXSCNM 

MXSCON 

MXSDAC 

nXSDTE 

MXSFIL 

MXSLGC 

MX$LIN 

MXSLON 

MXSNHS 

MXSNOD 

MXSOBJ 

HXSOWN 

MXtPAR 

MX$PAS 

MXSRAC 

MXSRID 

MXSRPS 

HXSSID 

MXSSNK 

MXSTYP 

MX$UID 

M$SCRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

NM.CLN 

NM.INI 


000037 

000100 

000017 

000001 

000005 

000060 

000060 

000002 

000000 

000010 

000000 

000004 

000000 

000020 

000002 

000001 

000002 

007777 

000000 

000003 

000001 

000002 

000000 

000000 

000001 

000020 

000020 

000020 

000006 

000006 

000020 

000020 

000034 

000777 

000020 

000006 

000454 

000006 

000006 

000040 

000036 

000010 

000047 

000047 

000047 

000040 

000377 

000077 

000020 

000124 

000000 

000000 

000000 

000000 

000000 

003400 

002400 


NM.OPR 

003000 

NM.VR2 

002401 

NM.VR3 

002402 

N$$ACC= 

000001 

^'$$BUF  = 

000001 

N$$LDV= 

000001 

N$$MCP= 

000001 

N$$MLL= 

000001 

N$$HOV= 

000010 

N$$NCT= 

000001 

N$$PEH= 

000001 

P$$P45= 

000000 

P$$URD= 

000000 

P.ACTC 

000012 

P.CFNC 

000034 

P. CHAR 

000042 

P.CONT 

000067 

P. DEBT 

000100 

P.DELT 

000076 

P. DISC 

000006 

P.DISR 

000004 

P.DVRF 

000047 

P.DVTM 

000046 

P.ECCB 

000064 

P.ENBC 

000011 

P.HDER 

000056 

P.INPQ 

000036 

P.LEN  = 

000154 

P.LERR 

000054 

P. LINE 

000010 

P. MODE 

000060 

P. MODI 

000061 

P.MTER 

000057 

P.OFFS= 

000046  G 

P.PARM 

000070 

P.PIND 

000066 

P.POLT 

00010'' 

P.RAQC 

00002.. 

P.RASQ 

000022 

P.RBFC 

000021 

P.RERR 

000052 

P.SEL 

177776 

P.SPFC 

000104 

P.STAT 

000002 

P. STMT 

000074 

P.TBAD 

000062 

P.TIHC 

000050 

P. TIME 

000001 

P.TIMR 

000000 

P.TRIB 

000014 

P.VECT 

177732 

P.VEC1 

177752 

P.XAGC 

000026 

P.XAWQ 

000030 

P.XSFC 

000027 

Q$$OPT= 

000010 

RBIAS  = 

000002 

RX.NXM- 
RX.OVR= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11'1= 
R.CSR 

.FLG 

.LST 

.MAP 

.QUE 

.SLN 

.SRV 

.STA 

.STBL 
SETACT 
SETDEA 
SETTAD 
SE.IRS= 
SE.NRS= 
SE.R8S= 
SE.RBU= 
SE.RCH= 
SE.RDC= 
SE.RRR= 
SE.SBS= 
SE.SBU= 
SE.SDC= 
SE.SHC= 
SE.SfiR= 
SFSANH 
SFSDNH 
SF.ACT= 
SF.ENA= 
SF.LP8= 
SF.MFL= 
SF.PAC-' 
SF.REA= 
SF.SER= 
SF.SVC= 
SF.UNL= 
S$$URG= 
SSSYSZ^ 


.ALF 

.BLKC 

.COST 

.C0U8 

.COUL= 

.CTL 

.DLCF 

S.ERR 

S.FLG 

S.FNCP 

S.HTNA 

S.L8E 

S.LEN 

S.L6R 


000020 

000010 

000000 

000001 

000000 

000000 

000056 

000064 

000104 

000110 

000062 

000070 

000060 

000066 

000210 

000230RG 

000350RG 

OOOOOORG 

004000 

002000 

001000 

000400 

000001 

000002 

000004 

000200 

000100 

000020 

000010 

000040 

000001 

000002 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

000000 

007600 

000044 

000033 

000001 

000044 

000040 

000006 

000102 

000010 

000000 

000004 

000023 

000044 

000004 

000031 


S.LGTH= 

000050 

S.L  N 

000004 

S.L  NK 

177776 

S.LMA 

000026 

S.LMOS 

000030 

S.LMRT 

000027 

S.LMS 

000025 

S.LNK 

000000 

S.LSA 

000005 

S.NCUB 

000000 

S.NCUL= 

000036 

S.NKLR 

000040 

S.NKR 

000037 

S.NKRB 

000052 

S.NKRU 

000045 

S.NKSB 

000051 

S.NKSW 

000046 

S.NMST 

000002 

S.NTD 

000024 

S.OWNR 

000003 

S.PLA 

000010 

S.PLC 

000022 

S.PLL 

000006 

S.PLS 

000011 

S.PSA 

000003 

S.RBE 

000042 

S.RCB 

000020 

S.RCV 

000014 

S.RCVB 

000072 

S.RCVC 

000056 

S.RDE 

000034 

S.REPR 

000050 

S.REPS 

000047 

S.RST 

000036 

S.RTEC 

000042 

S.RTY 

000001 

S.SELC 

000066 

S.SELT 

000053 

S.STA 

000000 

S.STE 

000002 

S.STEC 

000043 

S.STLG 

000104 

S.STLN 

000035 

S.STPN 

000034 

S.TIMC 

000054 

S.TLZ 

000052 

S.TMO 

000040 

S.TNRP 

000032 

S.TTEC 

000041 

S.WFA 

000016 

S.XDE 

000036 

S.XID 

000002 

S.XMB 

000030 

S.XMP 

000024 

S.XMT 

000012 

S.XMTB 

000076 

S.XMTC 

000062 

TF.FFE= 

000004 

TF.ROF= 

000001 

TF.RTO= 

000002 

TF.TAE= 

000010 

TF.TOF= 

000004 

TF.TTO= 

000010 

TF.URE= 

OOOCOl 

TF.USA= 

000002 

TR.ALF 

000102 

TR.DEV 

000100 

TR.LEN= 

000210 

TR.MST 

000074 

TR.PRE 

000076 

TR.TLZ 

000072 

TX.NXM= 

000002 

TX.OVR= 

000001 

TX.THO= 

000004 

T$$<HG= 

000000 

T$$M1N= 

000000 

T.ACT 

000031 

T.BTTC 

000074 

T.BUF 

000006 

T.CHA 

000032 

T.CSR 

000022 

T.DELT 

000056 

T.DIN 

000044 

T.DOUT 

000042 

T.ERRC 

000020 

T.ITM 

000001 

T.LBF 

000046 

T.LNK 

000000 

T.LTM 

000054 

T.NDM 

000066 

T.PIND 

000007 

T.QRAC 

000060 

T.QRIN 

000062 

T.QRPD 

000064 

T.QUE 

000024 

T.QU2  = 

000026 

T.RBF 

000050 

T.RBTC 

000020 

T.RDAT 

000034 

T.RTM 

000055 

T.RTY 

000030 

T.SEL 

000040 

T.SELT 

000052 

T.SFNC 

000014 

T.SITC 

000072 

T.STAT 

000002 

T.TIMC 

000016 

T.THR 

000000 

T.TOD 

000070 

T.TRLG= 

000076 

T.TRLN 

000005 

T.TRPN 

000004 

T.XASQ 

000010 

T.XBTC 

000024 
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31 
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SYMBOL 

VALUE 

REFERENCES 

L$MXB 

000133 

#5-67 

LSMXR 

000253 

#5-67 

L$MXW 

000252 

#5-67 

LSNAM 

000000 

#5-67 

LSNLEN 

=  000020 

#5-67 

5-67 

L$NMT 

000116 

#5-67 

.$NTI 

0C0256 

#5-67 

.$NTL 

000134 

#5-67 

LSNUM 

000240 

#5-67 

_$NUML 

000236 

#5-67 

L$NXT 

000044 

#5-67 

LSOPT 

000062 

#5-67 

*6-110 

LIOWN 

000102 

#5-67 

LSPAR 

000072 

#5-67 

♦6-135 

LSPDV 

000055 

#5-67 

L$PFG 

000041 

#5-67 

LSPLT 

000112 

#5-67 

LSPRO 

000075 

#5-67 

LtPVC 

000004 

#5-67 

L$RET 

000256 

#5-67 

LSSCN 

000020 

#5-67 

LSSCR 

000166 

#5-67 

L$SER 

000230 

#5-67 

LSSLEN 

000074 

#5-67 

LSSLT 

000042 

#5-67 

LSSNM 

000046 

#5-67 

LSSTA 

000100 

#5-67 

LSTAD 

000103 

#5-67 

L$TH1 

000130 

#5-67 

L$TH2 

000131 

#5-67 

L$TH3 

000132 

#5-67 

L$TNM 

000052 

#5-67 

L$TPT 

000050 

#5-67 

L$TRB 

000040 

#5-67 

LSTYP 

000063 

#5-67 

L$UNT 

000003 

#5-67 

L$XCH 

000232 

#5-67 

LSXMT 

000120 

#5-67 

MESCIR 

000003 

6-135 

ME.  FOR 

•  77776 

6-129 

ME. FUN 

•  inii 

6-107 

ME.MPR 

177773 

6-116 

MO$COU 

000060 

6-109 

MOSREA 

000200 

6-105 

MOSZER 

000000 

6-102 

MS.MOR 

000002 

6-138 

R$$PRO 

-   *♦♦*** 

5-67 

5-67 

SSAVRG 

;  »,.*♦»  G) 

6-100 

6-146 


6-147 


CIZEIN 
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BIT  DEFINITIONS 

.SBTTL  BIT  DEFINITIONS 


62 


000001 
000002 
000004 
000010 
000020 
OOOO'iO 
000100 
000200 
000360 


000001 
000002 
000004 


000010 
000020 
OOOOAO 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


PARSE  FLAG  DEFINITIONS  (L$PFG) 


LPSUNT 
LPSTRB 
LPSHUX 
LPSHPT 
LPSWDV 
LPSUCN 
LPSWUN 


1 

2 

4 

10 

20 

40 

100 


LPSUTR  =  200  ,  -.. 

LPSWLD  =  LP$WDV!LP$WCNILP$WUNILP$UTR 


UNIT  NUMBER  FOUND 
TRIBUTARY  NUMBER  FOUND 
DEVICE  IS  MUX 
LINE  IS  MULTIPOINT 
WILD  CARD  DEVICE  NAME  FOUND 
WILD  CARD  CONTROLLER  NUMBER  FOUND 
WILD  CARD  UNIT  NUMBER  FOUND 
WILD  CARD  TRIBUTARY  NUMBER  FOUND 
WILD  CARD  FIELD  MASK 


FLAGS  WORD  BIT  DEFINITIONS  (LSFLG) 


LFSREA 

=  1 

LFSZER 

=  2 

LFSSKP 

=  4 

LF$VR2 

=  10 

LFSEND 

=  20 

LFSSIG 

=  40 

LFSHLT 

=  40000 

LFSSEG 

=  100000 

SITION 

DEFINITIO 

BITO  = 

1 

BIT1  = 

2 

B,  T2  = 

4 

B  T3  = 

10 

B  T4  = 

20 

B  T5  = 

40 

B  T6  = 

100 

BIT7  = 

200 

BITS  = 

400 

BIT9  = 

1000 

BIT10 

=  2000 

8IT11 

=  4000 

BIT12 

=  10000 

BIT13 

=  20000 

BIT14 

=  40000 

BIT15 

=  100000 

READ  COUNTERS  OPERATION 

ZERO  COUNTERS  OPERATION 

SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 

THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 

FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 

CONTROLLER  COUNTERS  AS  WELL  AS  ALL 

OF  THE  TRIBUTARY  COUNTERS. 

CONNECTED  TO  VERSION  2.0  NCP 

EXECUTOR  IS  AN  ENDNODE 

SHOWING  SIGNIFIGANT  LINES/CIRCUITS 

MULTIPLE  ADJACENCY  FLAG 

SEGMENTED  RESPONSE  IN  PROGRESS 
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BIT  DEFINITIONS 

.SBTTL  SIT  DEFINITIONS 


63 
64 
65 
66 

67  000000 


000001 
000002 
OOOOOA 
000010 
000020 
OOOOAO 
000100 
000200 
000360 


000001 
000002 
000004 


000010 
000020 
000040 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


PARSE  FLAG  DEFINITIONS  (L$PFG) 

LPSUNT  =  1  ;  UNIT  NUMBER  FOUND 

LPSTRB  =  2  ;  TRIBUTARY  NUMBER  FOUND 

LPSMUX  =  4  ;  DEVICE  IS  MUX 

LPSMPT  =  10  ;  LINE  IS  MULTIPOINT 

LPSWDV  =  20  ;  WILD  CARD  DEVICE  NAME  FOUND 

LPSWCN  =  40  ;  WILD  CARD  CONTROLLER  NUMBER  FOUND 

LPSWUN  =  100  ;  WILD  CARD  UNIT  NUMBER  FOUND 

LPSWTR  =  200  ;  WILD  CARD  TRIBUTARY  NUMBER  FOUND 

LPSWLD  =  LP$WDV!LP$WCNILP$WUNILPlWTR  ;  WILD  CARD  FIELD  MASK 

FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 

LFSREA  =  1  ;  READ  COUNTERS  OPERATION 

LFSZER  =  2  ;  ZERO  COUNTERS  OPERATION  , 

LFSSKP  =  4  ;  SKIP  NEXT  "FIND  NEXT  LINE  OPERATION. 

THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 
FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 
CONTROLLER  COUNTERS  AS  WELL  AS  ALL 
OF  THE  TRIBUTARY  COUNTERS. 
LF$VR2  =  10  ;  CONNECTED  TO  VERSION  2.0  NCP 

LFSEND  =  20  ;  EXECUTOR  IS  AN  ENDNODE 

LFSSIG  =  40  ;  SHOWING  SIGNIFIGANT  LINES/CIRCUITS 

LFSMLT  =  40000  ;  MULTIPLE  ADJACENCY  FLAG 

LFSSEG  =  100000  ;  SEGMENTED  RESPONSE  IN  PROGRESS 

BIT  POSITION  DEFINITIONS 


BITO  = 
BIT1  = 
BIT2  = 
BIT3  = 
BIT4  = 
BITS  = 
BIT6  = 
BIT7  = 
BITS  = 
BIT9  = 
BIT10 
BITII 
BIT12 
BIT13 
BIT14 
BIT15 


Local  data 
ENTITY:  .BLKW 


1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 
=  2000 
=  4000 
=  10000 
=  20000 
=  40000 
=  100000 


entity  type 
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CREF   OA.OO 


SYMBOL  VALUE 

LDECT   =  »•**♦* 

LDBRT 

LF$END 

LFSMLT 

LFSREA 

LFSSEG 

LFSSIG 

LFSSKP 

LF$VR2 

LFSZER 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.riDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LPSMPT 

LPSMUX 

LPSTRB 

LPSUNT 

LPSWCN 

LPSWDV 

LPSWLD 

LPSWTR 

LPSWUN 

LSADJ 

LSBUF 

LSCHN 

LSCOU 


=  000020 
=  OAOOOO 
=  000001 
=  100000 
=  OOOO'iO 
=  OOOOOA 
=  000010 
=  000002 
=  100000 
=  OOOAOO 
=  000007 
=  002000 
=  001000 
=  000100 
=  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  000040 
=  000010 
=  020000 
=  000000 
=  000000 
=  000005 
=  000004 
=  000003 
=  000003 
=  000001 
=  000000 
=  000004 
=  000001 
=  000002 
=  000002 
=  000017 
=  000360 
=  000006 
=  000010 
=  000004 
=  000002 
=  000001 
=  000040 
=  000020 
=  000360 
=  000200 
=  000100 
000110 
000060 
000054 
000114 


GX 
GX 


REFERENCES 

9-224 
8-198 
#7-62 
»7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#6-62 
#6-62 
#6-62 
#6-62 


9-252 


8-171 
8-105 


9-268 
9-255 


11-327 


8-156 

8-159 

7-62 
7-62 

7-62 
7-62 

8-121 
9-229 


n-333 


DLCCOU 


CREATED  BY     MACRO     ON  29-JUN-85   AT   12:22 


PAGE   3 


I  12 


H  13 

DLMCOU  -  READ/AND  OR  ZERO  DLM  C  MACRO  VO5.03b  Saturday  29-Jun-85  12:22  Page  9 
DLMTBO  -  DLM  COUNTER  TABLES 

82  .SBTTL  DLMTBO  -  DLM  COUNTER  TABLES 

8? 

8^  ;    DLM  TABLE   0  -  NETWORK   MANAGEMENT  LAYER   (DLM  LINE   TABLE) 

oc 

86  000000  6lMTB0:  DLCOUS  0,16.,Q$T1MZ,R1        ;  SECONDS  SINCE- LAST  ZEROED  (STATION) 

87  OOOOOA  DLCOUS  END 
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H  H 


••FILE««!D«»DLXQ10 


DDDODDDD 

XX      XX 

OQOQQQ 

IJ 

HI 

000000 

DDDDDDDD 

XX      XX 

QQQQOQ 

1 

III 

000000 

DD      DD 

XX      XX 

OQ 

00 

00     00 

DD      DD 

XX      XX 

QQ 

QO 

00     00 

DD      DD 

XX  XX 

QU 

OQ 

00     00 

DD      DD 

XX  XX 

00 

00 

00     00 

DD      DD 

XX 

OQ 

00 

00     00 

DD      DD 

XX 

QQ 

QO 

00     00 

DD      DD 

XX  XX 

QO 

QQ  QQ 

00     00 

DD      DD 

XX  XX 

00 

QO  00 

00      00 

OD      DD 

XX     XX 

OQ 

00 

00     00 

DD      DD 

XX      XX 

QO 

QQ 

00     00 

DDDDDDDD 

LLLLLLLLLL 

XX     XX 

0000   OQ 

IJ 

]  ] 

000000 

DDDDDDDD 

LLLLLLLLLL 

XX      XX 

QQQQ  OQ 

IJ 

IJJ 

000000 

SS5SSSSS 

TTTTT 

TTTTT 

SSSSSSSS 

TTTTT 

mil 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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76 


000001 
000002 
OOOOOA 
000010 
000020 
0000^0 
000100 
000200 
001000 
100000 

000^00 
000002 
000020 
0000^0 
000200 
010000 

020000 

020053 
000362 
00100^ 


Flags  word  bit  definitions  for  X.25  circuits  and  lines  (LSFLX) 


Circuits: 

LS$CHN 
LS$CMB 
LSSCUS 
LSSDTE 
LSSMXR 
LSIMXW 
LSSNUM 
LS$RET 
LSSBLK 
LPINXC 

Lines: 

LS$HBT 
LSSLMB 
LS$MR7 
LSSMWN 
LSSNTI 
LSSPRO 

Common: 

LSSLCT 

Groupings: 

LSSPVC 
LSSSVC 
LSSDLM 


1 
2 

J8 

AO 

100 

200 

1000 

100000 

100 
LSSCMB 
LS$MXR 
LSSMXW 
LSSRET 
10000 

20000 


Set  PVC  channel 

Set  maximum  data 

Set  circuit  usage 

Set  DTE 

Set  maximum  recalls 

Set  maximum  window 

Set  DLM  number 

Set  recall  timer 

Set  blocking 

Circuit  IS  a  new  X.25  circuit 

Set  holdback  timer 

Set  max  block 

Set  max  retransmits 

Set  max  window 

Set  retransmit  timer 

Set  line  protocol 

Set  counter  timer 


LS$CHN! LSSCMB I LSSDTE I LSSMXWI LSSLCT 
LSSCMBILSSMXRILSSMXWILSSNUMILSSRET 
LSSBLKILSSCUS 
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I  16 


Pans    H 


I   1 

CIREOP  -  CIRCUIT  READ  INFORMATI  MACRO  V05.03b  Saturday  29-Jun-85  12:18 
GETCIR  -  GET  THE  NEXT  CIRCUIT-ID 


Page  8 


167 

168 

169 

170 

171 

172 

173 

17A 

17-^ 

ra 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

19l. 

19" 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 


000226 
000226 
000232 
000234 
000242 
000250 
000252 
000260 
000266 

000270 
000276 

000300 
000304 
000312 
000314 
000322 
000324 
000332 
0003?4 
000342 
000344 
000350 
000356 
000360 
000362 


103453 
142764 
132764 
001403 
152764 
126427 
001034 

022764 
001430 

016401 
032761 
001014 
032761 
001741 
032761 
001412 
132764 
001406 
016402 
1^2762 
001723 
000241 


000001 


.S8TTL  GETCIR  -  GET  THE  NEXT  CIRCUIT-ID 

♦*-GETCIR-GET  THE  NEXT  CIRCUIT-ID 

THIS  ROUTINE  FINDS  THE  NEXT  CIRCUIT  THAT  MATCHES  THE  CRITEREA 
PROVIDED. 

INPUTS: 

R4  =  ADDRESS  OF  CONTEXT  BLOCK  UITH: 

CONTEXT  FROM  PRSCIR  AND  PREVIOUS  NXTCIR, 

L$TYP(fi4)  =  USER  SPECIFIED  TYPE  (NAMED,  ACTIVE  OR  KNOWN  CIRCUITS) 

OUTPUTS: 

IF  CC,  CIRCUIT  FOUND  AND  CONTEXT  AREA  UPDATED,  ELSE 
NO  MATCHING  CIRCUIT  FOUND. 

REGISTERS: 

R3,  R4  AND  R5  ARE  PRESERVED 


GETCIR 
10$: 


000002 
000010 

000002 
000063 


000041 
000041 

000041 
177776 


30$ 


yinn   000050 


CALL 
BCS 

Bica 

BITB 
BEQ 

Bise 

CMP8 
BNE 
IF  NDF  R$$1l; 
CMP 
BEQ 


000042 
000400 

100000 

000020 

000002 

000050 
000200 


.ENDC 


000000 
000000 
000000 
000041 

000000 


35$: 


40$: 
50$: 


MOV 

BIT 

BNE 

BIT 

BEQ 

BIT 

BEQ 

BITB 

BED 

MOV 

BITB 

BEQ 

CLC 

RETURN 

.END 


NXTCIR 

50$ 

#LP$i"RB,L$PFG(R4) 

#LP$MPT,L$PFG(R4) 

30$ 

#LP$TRB,L$PFG(R4) 

L$TYP(R4),#MF$ACT 

40$ 

'#-1,L$TPT(R4) 
40$ 

L$SLT(R4),R1 

#LF.8R0,L.FLG(R1) 

35$ 

#LF.ACT,L.FLG(R1> 

10$ 

#LF.MTP,L.FLG(R1) 

40$ 

#LP$TRB,L$PFG(R4) 

40$ 

L$TPT{R4),R2 

#SF.ACT,S.FLG(R2) 

10$ 


FIND  THE  NEXT  CIRCUIT 
IF  CS,  THERE  WAS  NONE 
ASSUME  NO  TRI8  SPECIFIED 
ELSE,  MULTIPOINT  LINE  ? 
BR  IF  NO 

ELSE  INDICATE  TRIB  SPECIFIED 
SHOULD  WE  SHOW  ACTIVE  ONLY  ? 
IF  NE,  NO  -  USE  IT 

IS  THIS  A  PSI  CIRCUIT? 
BR  IF  YES 

ELSE,  GET  THE  SLT  ADDRESS 

IS  THIS  AN  ETHERNET  CONTROLLER  ? 

IF  NE,  LOOKS  LIKE  MULTIPOINT 

IS  THE  LINE  ACTIVE  ? 

IF  EQ,  NO  -  TRY  NEXT  ONE 

ELSE,  IS  THIS  A  MULTIPOINT  LINE  ? 

IF  EQ,  NO  -  LINE  IS  ACTIVE 

IS  THIS  A  TRIBUTARY  OPERATION  ? 

BR  IF  NO-AT  LEAST  1  STATION  IS  ACTIVE 

ELSE,  GET  TRIB  FLAGS  POINTER 

IS  THIS  STATION  ACTIVE  ? 

IF  EQ,  NO  -  TRY  NEXT  LINE/TRIB 


CIREST  -  READ  CIRCUIT  STATUS 
Macro  calls  and  local  data 

56 
57 
58 
59 
60 
61 
62 
65 

64  000000 

65  000000 

66  000000 

67  000000 

68  000000 

69  000000 

70  000000 

71  000000 

72  000000 

73  000000 
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.SBTTL  Macro  calls  and  local  data 

•  MACRO  LIBRARY  CALLS 

.MCALL  MANDF$,SAVRG,RESRG,PDVDF$,SL1DF$,PHBDF$ 

.MCALL  ECDDB$,SAVMAP,MAP,RESHAP,RETC,CEACC$,BIAS,MESAG$ 

.MCALL  XPDDB$,PLBDF$,ASL$,ADJDF|,CIRCX$,DHBDF$ 


74 
75 
76 

n 


OOOOAO 


MANDFS 
PDVDFS 
PHBDFS 
SLTDFS 
ECDDBS 
XPDDBS 
PLBDFS 
ADJDFS 
DHBDFS 
CIRCXS 

SPACE  =  40 

.EVEN 


DEFINE  NETWORK  MANAGEcuNT  SYMBOLS 

DEFINE  PDV  OFFSETS 

DEFINE  PSI  HOME  BLOCK  OFFSETS 

DEFINE  SLT  OFFSETS 

DEFINE  ECL'S  DOB  SYMBOLS 

DEFINE  XPT'S  DDB  SYMBOLS 

DEFINE  PLB  OFFSETS 

DEFINE  ADJACENCY  OFFSETS 

DEFINE  DEC  HOME  BLOCK 

DEFINE  CONTEXT  AREA 

ASCII  SPACE 
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CIREST  -  READ   CIRCUIT   STATUS 
Symbol  table 


AT$ACL= 

000100 

DSDELU 

000046 

AT$ADN= 

OOOOAO 

DSEND  = 

000104 

AT$AUP= 

000020 

DSFNB 

000034 

AT$CYC= 

000004 

DSHIOR 

000024 

AT$LV1= 

000002 

DSHOST 

000022 

AT$LV2= 

000001 

DSINAC 

000044 

AT$NEX= 

000200 

DSINCT 

000042 

ATSUP  = 

000010 

D$IPL 

000051 

A$C1R 

000003 

DSL  ID 

000020 

A$LEN 

OOOOOA 

DSLNAM 

000006 

A$NID 

000000 

DSLNUH 

000014 

A$TM 

000003 

DSLST 

000047 

A$TMI 

000002 

DSHAXC 

000064 

ASTSZ 

000000 

DSMAXH 

000066 

A$TYP 

000002 

DSMAXV 

000070 

A$$CHK= 

000000 

DSMLL 

000040 

A$$CPS= 

000000 

DSMNOD 

000041 

A$$PRI= 

000000 

D$NA 

000062 

A$$TRP= 

000000 

DSNBEA 

000056 

BITO  = 

000001 

DSNBRA 

000054 

BIT1   = 

000002 

D$NEND= 

000054 

BIT10  = 

002000 

D$NLN 

000030 

BIT11  = 

OOAOOO 

D$NN 

000060 

BIT12  = 

010000 

DSOUTT 

000043 

BIT13  = 

020000 

DSRETF 

000050 

BITU  = 

040000 

DSRNN 

000002 

B1T15  = 

100000 

DSRTHR 

000076 

BIT2  = 

000004 

DSSEG 

000036 

BIT3  = 

000010 

DSSER 

000032 

BIT*     = 

000020 

DSSQRL 

000052 

BITS  = 

000040 

D$$BUG= 

177514 

BIT6  = 

000100 

D$$ISK= 

000000 

BIT7  = 

000200 

D$$L11= 

000001 

BITS  = 

000400 

0$$yNC= 

000000 

BIT9  = 

001000 

D$$YNH= 

000000 

B$10 

000003 

E$$XPR= 

000000 

B$11 

000004 

FNDPLD 

001366R 

B$12 

000005 

F$$LVL= 

000001 

B$5 

000000 

GETADE 

000636R 

B$6 

000001 

GETADJ 

000764R 

B$? 

000002 

G$$TPP= 

000000 

B$7S10 

000006 

G$$TSS= 

000000 

CF$VR2= 

*♦♦♦♦♦  GX 

G$$TTK= 

000000 

CF$VR3= 

**♦«»*  GX 

G$$WRD= 

000000 

CIREST 

000052RG 

HF$DLM= 

000002 

CURCTX= 

«♦»«*«  GX 

HF$GWY= 

000010 

C$FLAG= 

♦  *»**•  cy 

HF$HOS= 

000004 

C$$CKP= 

000000 

HF$XDF= 

000020 

C$$ORE= 

000400 

HSCUG 

000010 

C$$RSH= 

177564 

HSDST 

000012 

DECPT  = 

*♦«♦*♦  GX 

H$D29 

000014 

DSAMXC 

000072 

HSFLG 

000000 

DSAMXH 

000074 

HSGLEN 

000104 

DSANN 

000000 

HSGLT 

000044 

DSBRPR 

000102 

HSGNAM 

000050 

DSBRTM 

000100 

H$GNML= 

000020 

DSDELF 

000045 

t'SGPT 

000046 

05.03b  Thursday  25-Jul-85  5:35 
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HSHITS  000034 

LN.0FF= 

000001 

L$$11R= 

000000 

HSHLEN  000044 

LN.ON  = 

000000 

L.COST 

929215 

HSLBDA  000070 

LN.00P= 

000004 

L.CTL 

000012 

HSLBDN  000072 

LN.OPE= 

000001 

L.CVA 

177776 

HSLDTE  000002 

LN.REF= 

000002 

L.DDM 

02222? 

HSLEN   000042 

LN.SER= 

000002 

L.DDS 

000004 

HSLOrS  000032 

LN.STA= 

000017 

L.DLC 

000003 

HSNETW  000024 

LN.SUB= 

000360 

L.DLH 

000006 

HSNML  =  000006 

LN.TRI= 

000006 

L.DLS 

000010 

HSNPT   000022 

LP$HPT= 

000010 

L.FLG 

299999 

HSPTB   000020 

LP$MUX= 

000004 

L.KRBA 

000016 

HSPVC   000006 

LP$TRB= 

000002 

L.LEN  = 

000022 

HSRDTE  000004 

LP$UNT= 

000001 

L.MPF 

000022 

HSRNU   000042 

LP$WCN= 

000040 

L.NHST 

000020 

HSSVC   000036 

LP$WDV= 

000020 

L.NSTA 

000014 

HSTRB   000016 

LP$WLD= 

000360 

L.OWNR 

000021 

HSXAVL  000100 

LP$WTR= 

000200 

L.UNT 

000013 

HSXBIA  000074 

LP$UUN= 

000100 

MAPADD= 

»***♦*  GX 

HJX29C  000040 

LSADJ 

000110 

MAPCHN= 

»**♦«*  GX 

I$$RAR=  000000 

LSBUF 

000060 

MBSDIS 

000001 

I$$RDN=  000000 

LSCHN 

000054 

MBSENA 

000000 

KISAR6=  **»»**  GX 

LSCOU 

000114 

HBSFUL 

000002 

K$$CNT=  177546 

LSCTB 

000053 

MBSHIX 

000002 

K;$$CSR=  177546 

LSCTL 

000002 

MBSONE 

000001 

K$$LDC=  000000 

LSDDM 

000000 

MBSRXO 

000001 

K$$TPS=  000074 

LSFLG 

000064 

MBSTXO 

000000 

LCSEXT  000000 

LSFLX 

000070 

MBSZER 

000000 

LCSINT  000001 

LSLEN 

000124 

HCSBAB 

006073 

LDSLP  =  000000 

LSLTM 

000070 

MCIBID 

001765 

LF$END=  000020 

LIMSG 

000056 

MCSBMC 

001767 

LF$MLT=  040000 

LSMTYP 

000067 

MCSBSC 

001766 

LF$REA=  000001 

LSNAM 

000000 

MCSCAC 

001442 

LF$SEG=  100000 

L$NLEN= 

000020 

MC$CAP 

001440 

LF$SIG=  000040 

LSNOD 

000112 

MCSCCL 

001445 

LF$SKP=  000004 

LSNXT 

000044 

MCSCDC 

002045 

LF$VR2=  000010 

LSOPT 

000062 

MCICDP 

001441 

!        LF$ZER=  000002 

LSPAR 

000120 

HCSCIF 

001465 

LF.ACT=  100000 

LSPDV 

000055 

HCSCLD 

001464 

!        LF.6R0=  000400 

LSPFG 

000041 

MCSCOU 

100000 

)        LF.BWT=  000007 

LSPLB 

000116 

MCSCTL 

001454 

LF.ENA=  002000 

LSPRO 

000067 

MCSCTR 

001452 

LF.LP8=  001000 

L$PVC 

000004 

MCSCTS 

001453 

LF.MrC=  000100 

LSSCN 

000020 

MCIDOV 

002050 

LF.MFL=  004000 

LSSCR 

000072 

MCSLBR 

001750 

LF.MTP=  000020 

LSSLEN 

000066 

!«IC$LBS 

001751 

LF.PAC=  000200 

LSSLT 

000042 

MCSLDI 

001774 

LF.RDY=  040000 

LSSNM 

000046 

MCSLDO 

001775 

LF.REA=  010000 

LSSYL 

000122 

MCSLDR 

001762 

LF.SER=  000040 

LSTNM 

000052 

MCSLDS 

001763 

LF.TIM=  000010 

LSTPT 

000050 

MCSLLB 

002021 

LF.UNL=  020000 

LSTRB 

000040 

MCSLLP 

002115 

LF.X2P=  000000 

LSTSZ 

000070 

HCSLLR 

002007 

LN.CLO=  000000 

LSTYP 

000063 

MClLOO 

000001 

LN.DUM=  000005 

LSUNT 

000003 

MCSLRB 

002020 

LN.LOA=  000004 

L$$ASG= 

000000 

MCILRP 

002114 

LN.L00=  000003 

L$$DRV= 

000010 

MCSLRR 

002006 

LN.OAU=  000003 

L$$P11= 

oor  -1 

MCSLSI 

002032 

J 
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1 

2 

3 

^ 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AG 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.IITLE  CIRMAP  -  CIRCUIT  CHrtNGE  MAPPING  ROUTINES 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  CIRCUIT  CHANGE  PARAMETERS  OPERATE  ROUTINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00     08-JUL-81 

DECNET-11M/S  V3.1 
DECNET-HM-PLUS   VI. 1 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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CIRMAP  -  CIRCUIT  CHANGE  MAPPING  MACRO  V05.03b  Saturday  29-Jun-85 
Symbol  table 


T.XDAT  000030 
VS$CTR=  001000 
X$$DBT=  000000 
ZF.COU=  001000 
ZF.DDM=  000001 
ZF.DIA=  004000 
ZF.DLC=  000002 
ZF.DVP=  100000 

.  ABS.  177776 
000500 
Errors  detected: 


000 
001 
0 


ZF.INI=  040000 
ZF.KMX=  000020 
ZF.LLC=  000004 
ZF.LMC=  000100 
ZF.MAN=  020000 
ZF.MFL=  000010 
ZF.MTM=  000400 
ZF.MUX=  000040 

(RW,I,G8L,ABS,0VR) 
(RU,I,LCL,REL,C0N) 


turday 

29-Jun-85 

12  =  ^9 

Page  8- 

■5 

ZF.PSE= 

002000 

Z.DSP 

89829S 

ZF.SLI= 

010000 
000200 

Z.FLG 

000010 

ZF.TIM= 

Z.LEN  = 

=  000016 

ZF.X3P= 

000000 

Z.LLN 

000006 

ZS.ASN= 

100000 

Z.MAP 

000020 

ZS.BSY= 

140000 

Z.NAM 

000004 

Z.AVL 

000014 

Z.PCB 

000012 

Z.DAT 

000016 

Z.SCH   000007 
$HEADR=  «*«*•*  GX 
$$LCNT=  000072  u 
$$LLIN=  000104  G 
$$$SYS=  004374 
$$$SYX=  000000 
..OFF.=  177732 


*♦*  Assembler  statistics 


Work  file  reads:  309 

Work  tile  writes:  214 

Size  of  work  file:  41034  Words   (  161  Piges) 

Size  of  core  pool:  17608  Words  (  67  Pages) 

Operating  system:  RSX-11M/PLUS 


SY:CIRMAp!v2![i'35?°34]CIRMAP/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[13U,110]NETLIB/ML,[130,10DRSXMCM/PA:1,[135,10]CIRMAP 
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CIZEIN  -  CIRCUIT  ZERO  COUNTERS 
MACRO  CALLS  AND  LOCAL  DATA 

53 

5A 

55 

56 

57 

58 

59  000000 

60 

61 

62 

63 

64 

65 

66 

67  000000 


000000 


000000 
000020 


000000 
000000 
000002 
000003 
000004 

000020 
000040 
000041 
000042 
000044 
000046 
000050 
000052 
000053 
000054 
000055 
000056 
000060 
000062 
000063 
000064 
000066 
000070 
000072 
CC0074 
000075 
000075 
000076 
000100 
000101 
000102 


000020 
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.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
MACRO  LIBRARY  CALLS 

.MCALL  HANDf$,SAVRG,RESRG,CICCX$ 

MANDFS 
LOCAL  DEFINITIONS 


CONTEXT  AREA  OFFSET  DEFINITIONS 

CICCXS         LIST 
CONTEXT  AREA  OFFSET  DEFINITIONS 


DEFINE  NETWORK  MANAGEMENT  SYMBOLS 


.ASECT 
.  =  0 
LSNLEN 


=  16. 


MAXIMUM  NAME  LENGTH 


The  offsets  L$NAM  to  LSPDV  inclusive  must  appear  in  the  same  order 
as  in  the  CIRCXS  and  LOCCXS  macros. 


L$NAM 
LSDDM 
L$CTL 
LSUNT 
LSPVC 

L$SCN 

L$TRB 

L$PF6 

LSSLT 

LSNXT 

L$SNM 

L$TPT 

LSTNH 

L$CTB 

L$CHN 

LSPDV 

L$MSG 

L$BUF 

LSOPT 

LSTYP 

LSFLG 

L$FL1 

L$FL2 

L$PAR 

LSSLEN 

L$PRO: 

LIMTYP 

L$FLX 

LSSTA 

L$COS 

L$OWN 


.BLKW 

.BLKB 

.BLKB 

.BLKW 

.  =  0+L$NLEN 

.BLKB   LSNLEN 

.BLKB 

.BLKB 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKW 

.BLKW 

.BLKB 

.BLKB 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKB 

.BLKB 
.BLKW 
.BLKB 
.BLKB 
.BLKB 


SPACE 


DEVICE  NAME 
CONTROLLER  NUMBER 
UNIT  NUMBER 
3RD  WORD  OF  PVC  NAME 
OR  EXPANDED  CIRCUIT  NAME 
CURRENT  NAME  IN  WILDCARD  SCAN 
TRIBUTARY  NUMBER 
PARSE  FLAGS 

Current  SLT/PVC  address 
Pointer  to  next  SLT/PVC  address 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  (-1  for  PSD 
REMAINING  NUMBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channel  number  /  X.25  port  number  and 
. . .  PDV  assigned 
ERROR  MESSAGE  STRING  POINTER 
SAVED  BUFFER  POINTER 
SAVED  OPTIONS  BYTE 
CIRCUIT-ID  FORMAT  TYPE 
FLAG  WORD  (FOR  COMMAND) 
FLAG  WORD  (FOR  COMMAND) 
FLAG  WORD  (FOR  CURRENT  CIRCUIT) 
CURRENT  PARAMETER  TYPE 
Significant  length  of  circuit  name 
Line  protocol 

Network  management  circuit  type 
Flags  word  for  X.25  circuit  commands 
CIRCUIT  STATE 
CIRCUIT  COST 
CIRCUIT  OWNER  (PDV  INDEX) 
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CIZEIN  CREATED  BY 

MACRO  CROSS  REFERENCE 
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PAGE  ^ 

CREF       04.00 


MACRO  NAME 

REFERENCES 

CALL 

6-136 

CICCXS 

#5-57 

S-6(' 

MANDF$ 

#5-57 

5-5y 

^ESRG 

#5-57 

RETURN 

6-151 

SAVRG 

#5-57 

SOB 

6-125 

J     7 


•♦F1LE«MD«»DAC0U 
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SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE         REFERENCES 
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CREF   OA.OO 


BITO 

BITl 

BITIO 

BITll 

BIT12 

BIT13 

BITK 

BIT15 

BIT2 

BIT3 

BIT4 

BIT5 

BIT6 

BIT7 

BITS 

BIT9 

B$10 

B$n 

B$12 

B$5 

B$6 

B$7 

B$7S10 

ACIR 
UALIN 
OATBO 
DATBl 
FMTCOU 
KISAR6 
LFSEND 
LFSMLT 
LFSREA 
LFSSEG 
LFSSIG 
LFSSKP 
LF$VR2 
LFSZER 
LF.ACT 
LF.8R0 
LF.BWT 
LF.ENA 
LF.LPB 
LF.MDC 
LF.MFL 
LF.MTP 
LF.PAC 
LF.RDY 
LF.REA 
LF.SER 
LF.TIM 
LF.UNL 
LF.X2P 


000001 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000003 

000004 

000005 

000000 

000001 

000002 

000006 

000040  RG 

000030  RG 

000000  R 

000006 


R 


::  *♦♦*♦* 

=  CJ0020 
=  040000 
=  000001 
=  100000 
=  000040 
=  000004 
=  000010 
=  000002 
=  100000 
=  000400 
=  000007 
=  002000 
=  001000 
=  000100 
=  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  000040 
=  000010 
=  020000 
=  000000 


GX 
GX 


#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#6-62 

#6-62 

#6-62 

#6-62 

#6-62 

#6-62 

#6-62 

#10-120 

#10-117 

#9-88 

#9-93 
10-136 
10-122 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#7-62 

#5-57 

#5-57 

#5-57 

#5-57 

#5-57 

#5-57 

#5-57 

#5-57 

#5-57 

#5-57 

#5-57 

#5-57 

#5-57 

#5-57 

#5-57 


9-93 
9-93 


9-94 
9-94 


9-95 
9-95 


9-96 
9-96 


10-134 

10-138 

10-139 

«10-124 


10-118 


»10-140 


DACOU 
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DCPCOU  - 
DISPATCH 

6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 


READ/AND  OR 
TABLE  ENTRY 
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.SBTTL  DISPATCH  TABLE  ENTRY 

GENERATE  AN  ENTRY  IN  THE  DISPATCH  TABLES  OF  THE 
LINE  AND  CIRCUIT  READ  COUNTER  MODULES. 

I  R$$RTR  :  R$$PRO 


.IF  DF 

R$$11S  !  S$$ 

.PSECT 

$$DLLO 

.WORD 

•RDCP.DCPLIN 

.PSECT 

$$DLCO 

.WORD 

»RDCP,DCPCIR 

.PSECT 

.ENDC 

READ  LINE  COUNTERS  ENTRYPOINT 


READ  CIRCUIT  COUNTERS  ENTRYPOINT 


J  9 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AT 
4, 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE 
.IDENT 


DEALUN  -  DEASSIGN  TEMPORARY  LUN 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  HAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  13  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  DEASSIGN  TEMPORARY  LUN  FOR  REUSE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-llM/S  V3.0 
DECNET-llM-PLUS  Vl.O 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  Vl.l 

4.00  07-NOV-83 
DECNET-llM  V4.0 
DECNET-llM-PLUS  V2.0 

4.01  17-OCT-84  RJK 

Change  Symbols  for  Vectoring  Comm  Exec 

5.00     22-JUL-85 

DECnet-UM/S  V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Micro/RSX  Vl.O 


OF      ITS 
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12:22 


69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 

92  000002 

93  000002 

94  000004 

95  000004 

96  000006 

97  000012 

98  000016 

99  000020 

100  000024 

101  000030 

102  000034 

103  000040 

104  000044 

105  000046 

106  000054 
107 

108 

109 

110  000056 

m  000062 

112  000066 

113  000070 

114  000072 

115  000076 

116  000100 
117 

118 
119 

120  000102 

121  000106 

122  000112 

123  000114 

124  000116 

125  000120 


.SBTTL  SPRLCO-  Read  and  zero  DLC  LINE  counters 
.SBTTL  SPRCCO-  Read  and  zero  DLC  CIRCUIT  counters 
^ 

**-$PRLCO-  Read  and  zero  DLC  LINE  counters 
♦♦-SPRCCO-  Read  and  zero  DLC  CIRCUIT  counters 

Inputs: 

R3  =  address  of  next  free  byte  in  buffer 
R4  =  address  of  the  context  area 

Outputs: 

Carry  clear: 


Carry  set: 


success  or 

no  information;  invalid  station  number  or  function  not 

supported  by  DLC. 
resource  allocation  failure  or  process  error 


RO  =  NICE  return  code 

R3  =  address  of  next  free  byte  in  buffer 

Registers: 

R4  IS  preserved 


005727 

000261 

006067  177766 

103002 

000167  000370 

012700  000001 

016501  000012 

100537 

032764  000002  000064 

001117 


016501  000020 
116502  000023 
100005 
010300 

010003 
000505 


016400  000060 

010046 

064016 

005201 

042701  000001 


SPRLCO: :_ 
SPRCCO: 


10S: 


TST 


(PC)  + 


SEC 

ROR 

ENTITY 

CALL 

RQSTCO 

BCC 

10S 

JMP 

70S 

CALL 

FORK 

MOV 

#MS.SUC,RO 

SWSTKS 

70S 

MOV 

C.STS(R5),R1 

BMI 

60S 

BIT 

#LF$ZER,LSfLG(R4) 

BNE 

45S 

Copy  counters  into  message  buffer 


MOV 

MOVB 

BPL 

MOV 

CALL 

MOV 

BR 


C.CNT1(R5),R1 

C.FLG+1(R5),R2 

15S 

R3,fi0 

copy 

R0,R3 
45i 


Format  returned  information 

15S:    SAVMAP 

MOV  LSBUF(R4),R0 

MOV  RO,-(SP) 

ADD  -(RO),(SP) 

INC  Rl 

BIC  *1,R1 


Carry  clear  for  LINE  counters 

Carry  set  for  CIRCUIT  counters 

Save  entity  type 

Request  process  counters 

If  CC,  success 

If  CS,  request  failed 

Else,  wait  for  completion  from  DLC 

Assume  success 

Enter  system  state 

Successful  operation  ? 

If  HI,  no 

Zeroing  counters  ? 

If  NE,  yes  -  go  zero  XPT  counters 


Pick  up  byte  count 

Check  for  preformatted  counters 

If  PL,  not  Preformatted 

Assume  preformatted 

else  just  copy  info 

update  message  pointer 

return  buffer  and  exit 


Save  APR  6  mapping 
point  to  message  buffer 
Get  address  of  message  buffer 
Point  past  message  buffer 
ensure  an  even  allocation 
for  copy 
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PAGE  ? 

CREf   OA.OO 


SYMBOL   VALUE 


LSCTB 

LSCTL 

L$DDM 

LtFLG 

L$FLX 

L$LEN 

L$LTM 

L$MSG 

LtMTYP 

LSNAM 

LSNLEN 

L$NOD 

L$NXT 

L$OPT 

L$PAR 

L$PDV 

LSPFG 

L$PLB 

L$PRO 

L$PVC 

L$SCN 

L$SCR 

LSSLEN 

LtSLT 

L$SNM 

LSSYL 

LSTNM 

L$TPT 

L$TRB 

LSTSZ 

L$TYP 

LSUNT 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.ODS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

l«IE.MPR 

ME. OPE 

ME. RES 

MS. sue 


REFERENCES 


000053 

#6-62 

000002 

#6-62 

000000 

#6-62 

00006A 

#6-62 

000070 

#6-62 

00012^ 

#6-62 

000070 

#6-62 

000056 

#6-62 

000067 

#6-62 

000000 

#6-62 

=  000020 

#6-62 

000112 

#6-62 

000044 

#6-62 

000062 

#6-62 

000120 

#6-62 

000055 

#6-62 

000041 

#6-62 

000116 

#6-62 

000067 

#6-62 

000004 

#6-62 

000020 

#6-62 

000072 

#6-62 

000066 

#6-62 

000042 

#6-62 

000046 

#6-62 

000122 

#6-62 

000052 

#6-62 

000050 

#6-62 

000040 

#6-62 

000070 

#6-62 

000063 

#6-62 

000003 

#6-62 

000015 

#5-57 

000012 

#5-57 

177776 

#5-57 

000002 

#5-57 

000004 

#5-57 

000003 

#5-57 

000006 

#5-57 

000010 

#5-57 

000000 

#5-57 

000016 

#5-57 

=  000022 

#5-57 

000022 

#5-57 

000020 

#5-57 

000014 

#5-57 

000021 

#5-57 

000013 

#5-57 

177773 

9-258 

177747 

8-192 

177761 

9-225 

000001 

8-101 

8-105 


6-62 


9-231 
8-156 


9-237 


8-171 


6-62 


8-159 


9-252 


9-255 


9-268 


11-327 


9-238 


11-354 
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DLMCOU  -  READ  AND/OR  ZERO  DLM  COUNTERS 


!2]!2 


89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 


.SBTTL  DLMCOU  -  READ  AND/OR  ZERO  DLM  COUNTERS 

♦♦-DLMCOU-READ  AND/OR  ZERO  DLM  COUNTERS 

THIS  ROUTINE  RETURNS  THE  TRANSPORT  COUNTERS  FOR  A  DLM  CIRCUIT 

INPUTS: 

R3  =  ADDRESS  OF  NEXT  FREE  BYTE  IN  BUFFER 
R4  =  ADDRESS  Of  THE  CONTEXT  AREA 

OUTPUTS: 

R3  =  ADDRESS  OF  NEXT  FREE  BYTE  IN  BUFFER 

REGISTERS: 

R4  IS  PRESERVED 


000006 
000006 
000012 
000016 
000022  103412 


000024  012702  000001 

000030  012705  000000' 

000034 

000036 

000042 

000044 

000050 

000054  010366  000010 

000060 


DLMCOU:: 


SWSTKS  30$ 

SAVMAP 

CALL  FNDDLM 

BCS  20$ 


ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

FIND  THE  LINE  TABLES 

IF  CS,  RETURN  WITHOUT  COUNTERS 


SET  UP  R2  SO  THAT  THE  PROPER  COUNTERS  ARE  RETURNED; 
0  =  POINT-TO-POINT 
-1  =  MULTIPOINT  CONTROLLER  COUNTERS 
+1  =  MULTIPOINT  TRIB  COUNTERS 


MOV 

#1,R2 

MOV 

#DLM1B0,R5 

SAVRG 

<R2> 

CALL 

FMTCOU 

RESRG 

<R2> 

CALL 

XPTCOU 

20$: 

RE SWAP 

MOV 

R3,8.(SP) 

30$: 

RETURN 

INDICATE  MULTIPOINT  TRIB  COUNTERS 

POINT  TO  FIRST  DCP  TABLE 

SAVE  LINE-TYPE  INDICATOR 

GET  THE  TIME  COUNTER 

RESTORE  BASE  COUNTER  INDICATOR 

GET  THE  TRANSPORT  COUNTERS 

RESTORE  PREVIOUS  MAPPING 

RETURN  R3  IN  SAVED  R3 

BACK  TO  USER  STATE  AND  RETURN 
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SS 
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8- 
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9- 
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CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

DEALUN 

=  »».«»♦  Gx 

9-202 

)LXERR 

000020  R 

#7-88 

8-176 

3LXLUN 

000200  RG 

#9-200 

3LXMSG 

OOOOOA  R 

#7-86 

5LXQ10 

000026  RG 

#8-110 

JLXTXT 

000005  R 

#7-87 

8-179 

FMTLIN 

=  «♦♦»..  Gx 

8-138 

G.LUNA 

=  000000 

9-206 

lE.UPN 

=  *««•«*  GX 

8-158 

lOSB 

000000  R 

#5-66 

8-149 

LCSNTL 

=  000200 

#6-75 

LCSOWN 

=  OOOAOO 

#6-75 

LFSMLT 

=  040000 

#6-75 

LFIREA 

=  000001 

#6-75 

LF$SEG 

=  100000 

#6-75 

LFSSKP 

=  000004 

#6-75 

LF$VR2 

=  000010 

#6-75 

LFIZER 

=  000002 

#6-75 

LPSMPT 

=  000010 

#6-75 

LPSMUX 

=  000004 

#6-75 

LPtNXC 

=  100000 

#6-75 

LPSTRB 

=  000002 

#6-75 

LPSUNT 

=:  000001 

#6-75 

LP$wrN 

=  000040 

#6-75 

6-75 

LP$W  . 

=  000020 

#6-75 

6-75 

LPSWLD 

=  000360 

#6-75 

LP$WTR 

=  000200 

#6-75 

6-75 

LPtWUN 

=  000100 

#6-75 

6-75 

LSSACT 

=  000040 

#6-75 

LSSBBT 

=  010000 

#6-75 

LSSBLK 

=  001000 

#6-75 

6-75 

LSSBSA 

=  000001 

#6-75 

LSSBSD 

=  000002 

#6-75 

LSSBSI 

=  000004 

#6-75 

LSSCHN 

=  000001 

#6-75 

6-75 

LSSCMB 

=  000002 

#6-75 

6-75 

LSSCOS 

=  000004 

#6-75 

LSSCUS 

=  000004 

#6-75 

6-75 

LSSDDT 

=  001000 

#6-75 

LSSDEA 

=  000100 

#6-75 

LSSDLM 

=  001004 

#6-75 

LSSDLT 

=  002000 

#6-75 

LSSDTE 

=  000010 

#6-75 

6-75 

LSSHBT 

=  000400 

#6-75 

LS$HTM 

=  010000 

#6-75 

LSSINA 

=  000010 

#6-75 

LStIND 

=  000020 

#6-75 

LSSINI 

=  000040 

#6-75 

LSSLCT 

=  020000 

#6-75 

6-75 

LSSLMB 

=  000002 

#6-75 

LSSLOO 

=  040000 

#6-75 

LSSMDT 

=  020000 

#6-75 

8-165 


6-75 


6-75 


1  rii  vn 
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78 
79 
80 
81 
82 
83 
8^ 
85 

86  000000 

87  000001 

88  00001^ 
89 


.SBTTL  ERROR  MESSAGE  STRINGS 
ERROR  MESSAGE  STRINGS 

.ENABL  LC 
NOTE:  THE  NEXT  THREE  LINES  MUST  REMAIN  CONTIGUOUS 


104 


1U 


130 


6lxmsg 

OLXTXT 
DLXERR 


.BLKB 
.ASCII 
.BLKB 
.EVEN 


1 

/DLX  error  #/ 

6 


BUFFER  FOR  DLX  STRING  LENGTH 
BUFFER  FOR  DLX  ERROR  CODE 
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CIHEOP  -  CIRC 
Syrp'^ii.  table 


At$>   - 
A$JCPS=: 

At'iPRl: 

A'.$TRP= 

FITO  = 

BIT1  = 

BIT10  = 

BIT11  = 

B1T12  = 

BIT13  = 

BITK  = 

BIT15  = 

B1T2  = 

BIT3  = 

BITA  = 

BITS  = 

BIT6  : 

BIT?  = 

BITS  = 

BIT9  = 
B$10 
B$11 
d$12 
B$5 


H$7S10 
CIRECH 
CIRECO= 
CIREOP 
CIREST= 
CIZEOP 
C$$CKP= 
C$$ORE: 
C$$RSH: 
DISTBL 
DtSBUG^ 
D$$!SK: 
D$$L11: 
D$$YNC^ 
D$$YNM- 
E$$XPR: 
FMTCIR^ 
F$$LVL- 
GETCIR 
G$$TPP: 
G$$TSS^ 
G$$TTK^ 
G$$WRD^ 
IISRAR 
I$$RDN 
K$$CNT 
K$SCSR 
KtSLDC 
K$$TPS 
LCSEXT 
LCSINT 


ooono 

000000 
000000 
000000 
000001 
000002 
002000 
OOAOOO 
010000 
020000 
040000 
100000 
OOOOOA 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000003 
000004 
000005 
000000 
000001 
000002 
000005 

=  ****** 


GX 

******  GX 
000022RG 
******  GX 

000022RG 

000000 

000400 

177564 

OOOOOOR 

177514 

000000 

000001 

000000 

000000 

000000 

******  GX 

000001 

000226R 

000000 

000000 

000000 

000000 

ocoooo 

000000 
177S46 
177546 
000000 
000074 
OOOCOO 
noOOOl 


LD$LP  = 

LF$END= 

LF$MLT= 

LF$REA= 

LF$SEG= 

LF$S1G= 

LF$SKP= 

LF$VR2= 

LF$ZER= 

LF.ACT= 

LF.BRO= 

LF.BWT= 

LF.ENA= 

LF.LPB= 

LF.MDC- 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RDY= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.L0O= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SU8= 

LN.TRI= 

LP$MPT= 

LP$MUX= 

LP$TRB= 

LP$UNT= 

LP$WCN= 

LP$WDV= 

LP$ULD= 

LP$WTR= 

LP$WUN= 

L$ADJ 

LSBUF 

L$CHN 

LSCOU 

LSCTB 

L$CTL 

L$DDM 

LSFLG 

LSFLX 

L$LEN 
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000000 

L$LTH 

000070 

MC$BSC 

001766 

HCSSYL 

22881^ 

000020 

LSMSG 

000056 

MCSCAC 

001442 

MCSSYR 

000050 

040000 

LSMTYP 

000067 

MCSCAP 

001440 

MCSSYS 

000024 

000001 

L$NAM 

000000 

MCSCCL 

001445 

HCSSYZ 

000000 

100000 

L$NLEN= 

000020 

MCSCDC 

002045 

HCSTBR 

ssn^? 

000040 

L$N0D 

000112 

MCSCDP 

001441 

MCSTBS 

001141 

000004 

LSNXT 

000044 

MCSCIF 

001465 

HCSTDR 

002053 

000010 

L$OPT 

000062 

MCSCLD 

001464 

MCSTIM 

000000 

000002 

LSPAR 

000120 

HCSCOU 

100000 

MCSTYP 

9PIIII 

100000 

L$PDV 

000055 

HCSCTL 

001454 

HCSUBU 

002052 

000400 

LSPFG 

000041 

MCSCTR 

001452 

HCSUFD 

002047 

000007 

L$PLB 

000116 

HCSCTS 

001453 

MCJUMR 

001132 

002000 

L$PRO 

000067 

MCSDOV 

002050 

MCSUHS 

001133 

001000 

L$PVC 

000004 

HCSLBR 

001750 

MCSVAX 

000003 

000100 

LSSCN 

000020 

HCSLBS 

001751 

MCSWID 

060000 

004000 

LSSCR 

000072 

MCSLDI 

001774 

MCSWIH 

040000 

000020 

LSSLEN 

000066 

MCILDO 

001775 

MCSWIL 

020000 

000200 

LSSLT 

000042 

MCSLDR 

001762 

ncsuoB 

020000 

040000 

L$SNM 

000046 

HCSLDS 

001763 

HC$U16 

040000 

010000 

L$SYL 

000122 

HCSLLB 

002021 

MC$U32 

060000 

000040 

LSTNM 

000052 

MCSLLP 

002115 

MCSXBR 

001750 

000010 

L$TPT 

000050 

HCSLLR 

002007 

MCSXBS 

001751 

020000 

LSTRB 

000040 

MCSLOO 

000001 

HCSXCJ 

000322 

000000 

L$TSZ 

000070 

MCSLRB 

002020 

HCSXCR 

002260 

000000 

L$TYP 

000063 

MCSLRP 

002114 

MCSXCS 

002261 

000005 

L$UNT 

000003 

HCSLRR 

002006 

MCSXDR 

001762 

000004 

L$$ASG= 

000000 

HCSLSI 

002032 

MCSXDS 

001763 

000003 

L$$DRV= 

000000 

MCSLST 

002033 

HCSXFR 

002272 

000003 

L$$P1 ■ 

000001 

HCSLUP 

006072 

MCSXFS 

902273 

000001 

L$$11R= 

000000 

HCSMAP 

010000 

HCSXLJ 

000323 

000000 

L.C05T 

000015 

HCSMBL 

001764 

■  CSXLR 

002330 

000004 

L.CTL 

000012 

HCSMBX 

004420 

-$XHA 

000310 

000001 

L.CVA 

177776 

MCSMBY 

001752 

iCJXMC 

002305 

000002 

L.DDM 

000002 

MCSMPX 

004406 

,"IC$XMS 

002304 

000002 

L.DDS 

000004 

MCSNAP 

001604 

HCSXNR 

002332 

000017 

L.DLC 

000003 

nCSNBR 

001130 

MCSXRC 

2S?ll$ 

000360 

L.DLM 

000006 

HCSNBS 

001131 

MCSXRR 

002331 

000006 

L.DLS 

000010 

MCSNCR 

001154 

MCSXRS 

002342 

000010 

L.FLG 

000000 

HCSNCS 

001155 

HC$020 

000002 

000004 

L.KRBA 

000016 

MCSNML 

001274 

MDSCI 

000007 

000002 

L.LEN  = 

000022 

rCSNHR 

001142 

MDSCNA 

000003 

000001 

L.MPF 

000022 

MCSNHS 

001143 

MDSCOU 

000001 

000040 

L.NMST 

000020 

HCSNNO 

001606 

MD$DA 

000010 

000020 

L.NSTA 

000014 

MCSNNU 

001605 

MD$DL 

000004 

000360 

L.OWNR 

000021 

MCSNOP 

001607 

MDSDLV 

000020 

000200 

L.UNT 

000013 

MCSNOR 

000000 

MDSDMC 

000014 

000100 

MBSDIS 

000001 

MCSNFF 

001616 

MDSDHF 

000046 

000110 

MBSENA 

000000 

MCSNPR 

001630 

MDSDHP 

000022 

000060 

MBSFUL 

000002 

MCSNRE 

001200 

HDSDMR 

000050 

000054 

MBSMIX 

000002 

HCSNRT 

001166 

MDSDMV 

000042 

000114 

MBSONE 

000001 

HCSNVR 

001642 

MD$DN 

000016 

000053 

MBSRXO 

000001 

HC$P08 

000000 

MDSDP 

000000 

000002 

MBSTXO 

000000 

HCSPII 

000001 

MDSDPV 

000044 

000000 

HBSZER 

000000 

MCSRFL 

002046 

HD$DQ 

000006 

000064 

MCSBAB 

006073 

HCSSBU 

002051 

MDSDTE 

000024 

000070 

MCSBID 

00 1 765 

MCSSFL 

002044 

MDIDU 

000002 

000124 

MCSBMC 

001767 

MCSSYC 

000012 

MDSDUP 

000012 
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State  mapping  tables 

79 
80 
81 
82 
83 
8^ 
85 
86 
87 


89  000000 

90  000000 

91  000001 

92  000002 

93  000003 

94  000004 
95 

96 

97 

"8 

99 
100 
101 
102 

103  000005 
104 
105 
106 

107  000005 
108 
109 
110 

111  000014 
112 
113 
114 

115  000023 
116 
117 
118 

119  000032 
120 
121 
122 

123  000041 
124 
125 
126 
127 
128 
129 
130 
131 
132 

133  000050 
134 
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.SBTTL  State  mapping  tables 

STATE  MAPPING  TABLE: 

INDEXED  BY  STATE  KEPT  IN  THE  NETWORK  MANAGEMENT  STATE  BYTE 
IN  THE  SLT,  RETURNS  THE  NICE  PROTOCOL  STATE. 


.IF  DF  R$$11S 
.PSECT  NIXCOD 
.ENDC 


COO 
001 
002 
000 
000 


STATBL: 


.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 


MS$ON 

MSSOFF 

HSSSER 

MS$ON 

MS$ON 


;  FORCE  CODE  TO  APR6  FOR  US 


ON  =  ON 
OFF  =  OFF 
SERVICE  =  SERVICE 
ON,  AUTOSERVICE  =  ON 
ON,  OPEN  =  ON 


376 


377 


377 


006 


377 


376 


377 


377 


006 


377 


001 


377 


001 


001 


377 


-1, 


SUB-STATE  MAPPING  TABLE  (EACH  ROW  IS  A  STATE,  EACH  COLUMN  A  SUB-STATE) 

INDEXED  BY  ( {STATE*7)+SUBSTATE)  TO  RETURN  THE  NICE  PROTOCOL  SUBSTATE. 

A  -1  ENTRY  MEANS  NO  SUB-STATE  RETURNED 

A  -2  ENTRY  MEANS  CONDITIONAL  RETURN  ON  AN  ADJACENT  NCCt  BEING  FOUND 

.NLIST  BEX 
SUBTBL: 

—  ON  — 

.BYTE 

—  OFF 

.BYTE 

—  SERVICE  

.BYTE   -1, 

—  ON,  AUTOSERVICE  

.BYTE   MSSASE,  HSSASE,  MSSREF,  -1,     MSSALO,  MSSADU,  MSSATR 

—  ON,  OPEN  

.BYTE   -1,     -1,     -1,     MSSLOO,  MSSLOA,  MSSDUM,  MSSTRI 


.LIST   BEX 

.IF  DF  R$$11S 

.PSECT 

.ENDC 

.BLKW   1 


-2, 


-1, 


-1, 


MSSREF,  MSSLOO,  MSSLOA,  MSSDUM,  MSSTRI 
-1,     -1,     -1,     -1,     -1 
MSSREF,  MSSLOO,  MSSLOA,  MSSDUM,  MSSTRI 


TEMP: 


;  temporary  for  transport  block  size 
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MCtLST 

002033 

MCSXFR 

002272 

MCtLUP 

006072 

MCSXFS 

002273 

MCSMAP 

010000 

MCSXLJ 

000323 

HCSHBL 

001 76A 

HCSXLR 

002330 

MCtMBX 

00^A20 

MCSXMA 

000310 

MC$MBY 

001752 

MCSXMC 

002305 

MCSMPX 

0OA406 

MCSXMS 

002304 

MCSNAP 

001604 

HC$XNR 

002332 

MCSNBR 

001130 

HCSXRC 

002316 

MC$NBS 

001131 

HCtXRR 

002331 

HCSNCR 

001154 

HCSXRS 

002342 

MCSNCS 

001155 

MC$020 

000002 

MCSNHL 

001274 

«D$CI 

000007 

MCSNHR 

001 U2 

MDSCNA 

000003 

MCSNMS 

001K3 

MDSCOU 

000001 

MCSNNO 

001606 

MD$DA 

000010 

MCSNNU 

001605 

MDSDL 

000004 

MCSNOP 

001607 

HDSDLV 

000020 

MCSNOR 

000000 

HDSDMC 

000014 

HCSNPF 

001616 

HDSDMF 

000046 

HCSNPR 

001630 

MOSDMP 

000022 

MCSNRE 

001200 

MDSDHR 

000050 

MCSNRT 

001166 

MDSDMV 

000042 

MCtNVR 

001642 

HD$DN 

000016 

HC$P08 

000000 

HD$DP 

000000 

MCSPIl 

000001 

MDSDPV 

000044 

HC$Ra 

002046 

MDSDQ 

000006 

MCSSBU 

002051 

MDSDTE 

000024 

nCSSFL 

002044 

MD$DU 

000002 

MCSSYC 

000012 

MDSDUP 

000012 

MCSSYL 

000036 

MD$DV 

000026 

HCSSYR 

000050 

MDSDZ 

000030 

MCSSYS 

000024 

MDSFUL 

000000 

MCSSYZ 

000000 

MDSHAL 

000001 

HCSTBR 

001140 

MDSHEL 

000002 

MCSTBS 

001141 

HDSKCP 

000013 

MCSTDR 

002053 

HDSKDP 

000034 

MCSTIH 

000000 

MDSKDZ 

000036 

MCSTYP 

007777 

MD$KL 

000040 

MCSUBU 

002052 

MDSKMX 

000054 

MCSUFD 

002047 

HDSKHY 

000052 

HCSUMR 

001132 

MDSLEN 

000050 

MCSUMS 

001133 

MDSPCL 

000011 

MCSVAX 

000003 

MDSQNA 

000005 

MCSUID 

060000 

MDSUMA 

000001 

MCSWIH 

040000 

HDSWIT 

000002 

MCSWIL 

020000 

MD.A80 

000017 

MC$W08 

020000 

MD.ACC 

000010 

MC$W16 

040000 

MD.AOS 

000016 

|V|CSW32 

060000 

HD.BOB 

000011 

MCSXBR 

001750 

HD.DIA 

000007 

MCSXBS 

001751 

HD.DOB 

000015 

MCSXCJ 

000322 

MD.DUH 

000002 

MCSXCR 

002260 

MD.FAI 

000014 

MCSXCS 

002261 

MD.FNA 

000001 

MCSXDR 

001762 

MD.FOB 

000006 

MCSXDS 

001763 

MD.LOA 

000001 

MD.LSH 
HD.NOB 
MD.NON 
MD.PER 
MD.RES 
MD.ROB 
MO.RSH 
MD.SDU 
HD.SLO 
MD.SNA 
MD.TLO 
MD . UNA 
MD.UNR 
MD . U08 
MD.VOL 
MEIALI 
ME$AL2 
ME$ARE 
MESCIR 
MESEXA 
MESEXE 
MESLIN 
MESLOG 
ME SHOD 
MESNOD 
MESNON 
MESOBJ 
ME$0B2 
MESPRO 
MESSYS 
ME.BLO 
ME. CON 
ME.CST 
ME.DIS 
ME. DON 
ME.FCO 
ME.FJO 
ME. FOP 
ME. FOR 
ME. FUN 
ME.GRO 
ME.HAR 
ME.IID 
ME.LCO 
ME.LPR 
ME.MPR 
HE.HVE 
ME. OPE 
ME.PLO 
ME.PMI 
ME.PNA 
ME.PRI 
HE.PTY 
ME.PVA 
ME. RES 
ME.ROO 
ME.SIZ 


000020 
000012 
M7777 
000000 
000004 
000005 
000013 
000005 
000003 
000000 
000004 
000002 
000003 
000007 
000006 
000010 
000003 
000005 
000003 
000000 
000200 
000001 
000002 
000004 
000000 
y77777 
000007 
000004 
000005 
000006 
V77i,k 
y7775l 
y777b5 
y77755 
177600 
y777bl 
177756 
177763 
\7777b 
\77777 
}777i,5 
177750 
177767 
\777bb 
]77757 
\7777l 
\7771\ 
■\777^7 
U775} 
y777',^ 
\777yc 
y77775 
\77772 
\777bQ 
17776^ 
177754 
17777i, 


ME. SYS 
ME.UCO 
MFSACT 
MFSADD 
MFSADJ 
MFSALL 
MFSBYE 
MFtCHA 
MFSDUM 
MFSEVT 
MFSFUP 
MFSKNO 
MFSLOA 
MFSLOO 
MFSREA 
MFSSIG 
HFSSPF 
MFSSYS 
MFSTES 
MFSTRA 
MFSTRI 
MFSZER 
ML SAL L 
MLSCtS 
MLSCON 
MLSEXT 
MLSFIL 
MLSFIR 
MLSINT 
MLSKNO 
MLSMON 
MLSSYS 
MLSTOP 
MNSUNL 
MOSACC 
MOSADD 
MOSALA 
MOSALI 
MOSCHA 
MOSCIR 
MOSCLE 
MOSCOU 
MOSDAC 
MOSDEF 
MOSDPR 
MOSENT 
MOSEVE 
MOSINF 
MOSINS 
MOSLIN 
MOSLOG 
MOSMIR 
MOSNAM 
MOJNIC 
MOSNOD 
MOSOFF 
MOSON 


177746 
177770 
177776 
000000 
177774 
177775 
000300 
000023 
000020 
000001 
000264 
n7777 
000017 
177775 
000024 
177773 
000302 
000026 
000022 
000301 
000021 
000025 
100000 
000000 
000001 
000001 
000002 
000000 
000000 
140000 
000003 
000002 
000001 
000377 
000200 
000002 
000004 
000000 
000040 
000003 
000100 
000060 
000000 
000000 
000000 
000017 
000100 
000160 
000002 
000001 
000001 
000031 
000001 
000023 
000000 
000001 
000000 


HOSOPT 
MOSPcR 
MOSPRO 
MOSPRS 
MOSREA 
MOSSET 
MOSSTA 
MOSSUM 
MOSTSK 
MOSVOL 
HOSZER 
HPSACB 
HPSACC 
MPSACT 
MPSADD 
MPSADJ 
MPSADP 
MPSADS 
MPSALB 
HPSAMC 
MPSAMH 
MPSANB 
MPSASB 
MPS AS C 
MPSAUS 
MPSBBT 
MPSBDF 
HPSBFQ 
MPSBLK 
MPSBLO 
MPSBHX 
MPSBNP 
MPSBRT 
MPSBSA 
MPSBSD 
MPSBSI 
MPSBSP 
MPSBUF 
MPSBUP 
MPSBUS 
MPSCAC 
MPSCAS 
MPSCAT 
MPSCCS 
MPSCHN 
MPSCIR 
MPSCLK 
MPSCLN 
MPSCLT 
MPSCHB 
MPSCMK 
MPSCMX 
HPSCND 
MPSCNU 
HPSCOB 
MPSCON 
MPSCOS 


000001 
000200 
000002 
000001 
000200 
000000 
000020 
000000 
000000 
000000 
000000 
000012 
000514 
004526 
000766 
001440 
006325 
004406 
000036 
001640 
001641 
004420 
000024 
004432 
000512 
002165 
002164 
002121 
001616 
001452 
002176 
006330 
001620 
002176 
002203 
002200 
006331 
000170 
006324 
001643 
001750 
001762 
002210 
004406 
002141 
000144 
002131 
002126 
002211 
002142 
000537 
002153 
000310 
001753 
000311 
002126 
001604 
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MACRO  CALLS  AND  LOCAL  DATA 


54 
55 
56 
57 
58 
59 
60 

61  000000 

62  000000 

63  000000 

64  000000 

65  000000 

66  000000 
67 

68 
69 
70 
71 
72 
73 
74 
75 
76  000000 


000002 


000210 


000000 
000020 


000000 
000000 
000002 
000003 
000004 

000020 
000040 
000041 
000042 
000044 
000046 
0C0050 
C00052 
000053 
000054 
000055 
000056 
000060 
000062 
000063 
000064 
000066 
000070 


000020 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 

MACRO  LIBRARY  CALLS 

.MCALL  MANDF$,SAVRG,RESRG,PDVDF$,SLTDF$,DHPDF$ 

.MCALL  SAVMAF,MAP,RESMAP,PCLDF$,DDCDF$,RETC,BIAS,CEACC$,CICCX$ 

HANDFS  ;  DEFINE  NETUORK  MANAGEMENT  SYMBOLS 

DHPDFS  ;  DEFINE  DMP  LINE  TABLE  OFFSETS 

PDVDFS  ;  DEFINE  PDV  OFFSETS 

SLTDFS  ;  DEFINE  SLT  OFFSETS 

DDCDFS  ;  DEFINE  DDCMP  STATION  TABLE  OFFSETS 

PCLDFS  ;  DEFINE  PCL  LINE  TABLE  OFFSETS 

LOCAL  DEFINITIONS 

RBIAS=2 

CONTEXT  AREA  OFFSET  DEFINITIONS 

CICCXS         LIST 

CONTEXT  AREA  OFFSET  DEFINITIONS 

.ASECT 

.  =  0 

LSNLEN  =  16. 


WE  MUST  ACCOUNT  FOR  SAVED  KISAR6 


r,A'IHUM  NAME  LENGTH 


The  offsets  L$NAM  to  LSPDV  inclusive  must  appear  in  the  same  order 
as  in  the  CIRCXS  and  LOCCXS  macros. 


L$NAM 
L$DDM 
LSCTL 
LSUNT 
L$PVC 


LSSCN 

.BLK8 

L$TRB 

.BLKB 

L$PFG 

.BLK6 

LSSLT 

.BLKW 

L$NXT 

.BLKW 

L$SNM 

.BLKW 

L$TPT 

.BLKW 

L$TNM 

.BLKB 

LSCTB 

.BLKB 

LSCHN 

.BLKB 

LJPDV 

.BLKB 

L$MSG 

.BLKW 

L$BUF 

.BLKW 

L$OPT 

.BLKB 

L$TYP 

.BLKB 

L$FLG 

.BLKW 

l$FI1 

.BLKW 

L$FL2 

.BLKW 

BLKW  1 
BLKB  1 
BLKB  1 
BLKW  1 
=  0+L$NLEN 

L$NLEN 

1 

1 

1 

1 

1 


DEVICE  NAME 
CONTROLLER  NUMBER 
UNIT  NUMBER 
3RD  WORD  OF  PVC  NAME 
SPACE  FOR  EXPANDED  CIRCUIT  NAME 

CURRENT  NAME  IN  WILDCARD  SCAN 

TRIBUTARY  NUMBER 

PARSE  FLAGS 

Current  SLT/PVC  address 

Pointer  to  next  SLT/PVC  address 

REMAINING  NUMBER  OF  SYSTEM  LINES 

Current  tributary  pointer  (-1  for  PSD 

REMAINING  NUMBER  OF  TRIBUTARIES 

CURRENT  TRIBUTARY  NUMBER 

Channel  number  /  X.25  port  number  and 

. . .  PDV  assigned 

ERROR  MESSAGE  STRING  POINTER 

SAVED  BUFFER  POINTER 

SAVED  OPTIONS  BYTE 

CIRCUIT-ID  FORMAT  TYPE 

FLAG  WORD  (FOR  COMMAND) 

FLAG  WORD  (FOR  COMMAND) 

FLAG  WORD  (FOR  CURRENT  CIRCUIT) 
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PAGE  1 

CREF   04.00 


BF.TRC 

DF.CRC 

DF.FOC 

DF.RAN 

DF.UNK 

FNDDCP 

FNDDMP 

FNDPCL 

I$$AS 

KISAR6 

LCSNTL 

LCSOUN 

LFSMLT 

LFSREA 

LFSSEG 

LF$S<P 

LF$VR2 

LFIZER 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.ROY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

IN. OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LPSMPT 

LPSHUX 

LPSNXC 

LPSTRB 

LPSUNT 


GX 


=  000004 
=  000010 
=  000020 
=  000040 
=  000100 
=  *♦«***  GX 
=  »»»»««  GX 
=  «»*♦**  GX 
=  **•*♦* 
=  ****** 
=  000200 
=  000400 
=  040000 
=  000001 
=  100000 
=  000004 
=  000010 
=  000002 
=  100000 
=  000400 
=  000007 
=  002000 
=  001000 
=  000100 
=  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  000040 
=  000010 
=  020000 
=  000000 
=  000000 
=  000005 
=  000004 
=  000003 
=  000003 
=  000001 
=  000000 
=  000004 
=  000001 
=  0000C2 
=  000002 
=  000017 
=  000360 
=  000006 
=  000010 
=  000004 
=  100000 
=  000002 
=  000001 


#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
6-122 
6-133 
6-129 
5-63 
6-121 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 


7-177 


♦6-144 


8-222 
7-176 


-7-183 


8-221 


*8-228 


6-113 


6-105 


7-172 
8-217 


8-215 
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CIZEIN  -  CIRCUIT  ZERO  COUNTERS 
MACRO  CALLS  AMD  LOCAL  DATA 

000103 
00010^ 
000105 
000106 
000110 
000112 
0001 U 
000116 
000120 
000122 
000123 
0001 2A 
000125 
000126 
000127 
000130 
000131 
000132 
000133 
000134 
000166 
00022A 
000226 
000230 
000230 
000232 
000234 
000234 
000236 
000236 
000240 
000240 
000250 
000252 
000252 
000253 
000253 
000254 
000256 
000256 
000260 
000262 


000264 
000000 


000001 
000002 
000004 


MACRO  V05.03b 

Saturday  29 

-Jun-85 

12:20  Page  5-1 

LSTAD: 

.BLKB   1 

TRIBUTARV  ADDRESS 

L$ACT 

.BLKB   1 

MULTIPOINT  ACTIVE  RATIO 

L$DEA 

.BLKB   1 

MULTIPOINT  DEAD  RATIO 

L$DDT 

.BLKU 

DMP  DEAD  TIMER 

L$DLT 

.BLKW   1 

DMP  DELAY  TIMER 

LSPLT 

.BLKW   1 

DMP  POLL  TIMER 

LSBBT 

.BLKW 

DMP  BABBLE  TIMER 

LSNHT 

.BLKW 

DMP  NORMAL  TIMER 

L$XMT 

.BLKW   1 

DMP  TRANSMIT  TIMER 

LSBSA 

.BLKB   1 

DMP  ACTIVE  BASE 

LSBSD 

.BLKB 

DMP  DYING  BASE 

LSBSI 

.BLKB   1 

DMP  INACTIVE  BASE 

L$INA 

.BLKB   1 

DMP  ACTIVE  INCREMENT 

LSIND 

.BLKB   1 

DMP  DYING  INCREMENT 

LSINJ 

.BLKB   1 

DMP  INACTIVE  INCREMENT 

L$TH1 

.BLKB   1 

DMP  DEAD  THRESHOLD 

L$TH2 

.BLKB   1 

DMP  DYING  THRESHOLD 

L$TH3 

.BLKB 

DMP  INACTIVE  THRESHOLD 

L$MXB 

.BLKB 

DMP  MAXIMUM  BLOCKS 

LSNTL 

.BLKW 

3. 

NTL  MESSAGE  BUFFER 

LSSCR 

.BLKW 

5. 

SCRATCH  BUFFER 

L$LCT 

.BLKW 

COUNTER  TIMER 

LSHTM 

.BLKU 

HELLO  TIMER 

L$SER 

SERVICE 

L$LTH 

.8LKW 

LISTEN  TIMER 

LSXCH 

.BLKW 

X25  Logical  Channel  Number  (LCN) 

LSLMB 

X25  Max  Block  (Line) 

LSCMB 

.BLKU 

X25  Max  Data  (Circuit) 

LSNUM 

DLM  Number  length 

LSDTE 

'.':    .BLKW 

X25  DTE  length  (Circuit) 

LSNUM 

DLM  Number 

LSDTE 

.BLKB 

3, 

•  X25  DTE  (Circuit) 

LSDTE 

^:  .BLKW 

•  X25  Pointer  to  DTE  descriptor  (Circuit) 

LSMUN 

•  X25  Max  Window  (Line) 

LSMXW 

.BLKB 

■  X25  Max  Window  (Circuit) 

LSMRT 

■  X25  Max  Retransmits  (Line) 

LSMXR 

•   .BLKB 

•  DLM  Max  Recalls  (Circuit) 

LSHBT 

•   .BLKW 

•  X25  Holdback  Timer  (Line) 

LSNTJ 

■  X25  Retransmit  Timer  (Line) 

LSRET 

•   .BLKW 

•  DLM  Recall  Timer  (Circuit) 

LSCUS 

:   .BLKW 

;  DLM  Usage 

LSBLK 

:   .BLKW 

■  DLM  blocking  state 

.IF  DF 

i$$PR0 

; PRO/DEC 

net 

LSLTY 

:   .BLKW 

;  Loopback  Type 

LSMDT 

:   .BLKW 

;  Modem  Test 

.ENDC 

•  DF  RSSPRO 

.EVEN 

LSLEN 

.PSECT 

;  LENGTH  OF  CONTEXT  AREA 

;  FLA 

GS  WORD  BIT 

DEFINITIONS  (LSFLG) 

' 

LFSREA  = 

1 

;  READ  COUNTERS  OPERAT  ON 

LFSZER  = 

2 

;  ZERO  COUNTERS  OPERAT  ON 

LFSSKP  = 

4 

;  SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 
;  THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 
;  FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 
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CREF   OA.OO 


LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LPSMPT 

LPSMUX 

LPSTRB 

LPSUNT 

LPSUCN 

LPSWDV 

LPSWLD 

LPSWTR 

LPSWUN 

LSADJ 

LIBUF 

L$CHN 

L$COU 

L$CT8 

LtCTL 

LSDDM 

LSFLG 

LIFLX 

L$LEN 

L$LTM 

LSMSG 

LSMTYP 

LSNAM 

LINLEN 

L$NOD 

L$NXT 

L$OPT 

L$PAR 

LSPDV 

L$PFG 

L$PL8 

L$PRO 

L$PVC 

L$SCN 

LSSCR 

L$SLE^J 

L$SLT 

LSSNM 


=  000000 

=  000005 

=  000004 

=  000003 

=  000003 

=  000001 

=  000000 

=  OOOOOi 

=  000001 

=  000002 

=  000002 

=  000017 

=  000360 

=  000006 

=  000010 

=  000004 

=  000002 

=  000001 

=  000040 

=  000020 

=  000360 

=  000200 

=  000100 

000110 

000060 

000054 

000114 

000053 

000002 

000000 

000064 

000070 

000124 

000070 

000056 

000067 

000000 

=  000020 

000112 

000044 

000C62 

000120 

000055 

000041 

000116 

000067 

000004 

000020 

000072 

000066 

000042 

000046 


REFERENCES 

#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#7-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 


7-62 
7-62 

7-62 
7-62 


10-11f 


6-62 


6-62 


10-123 


nArnu 
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OCPCOU  -  READ/AND  OR  ZERO  DCP 
DCPTB?  -  DDCMP  COUNTER  TABLES 

85 
84 
85 
86 

87  000000 

88  OOOOOA 

89  000010 
90 
91 
92 
93 

94  000012 

95  000016 

96  000022 

97  000026 

98  000032 

99  000036 

100  000044 

101  000052 

102  000060 

103  000062 

104  000066 

105  000074 

106  000102 

107  000110 

108  000112 

109  000116 

110  000122 

111  000126 

112  000134 

113  000142 

114  000144 

115  000150 

116  000156 

117  000164 

118  000166 

119  000172 

120  000176 

121  000204 

122  000212 
123 

124  000214 

125  000220 

126  000226 

127  000234 

128  000242 

129  000250 

130  000252 

131  000256 

132  000264 

133  000272 
154  000500 
135  000306 
156  000310 
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.S8TTL  DCPT8?  -  DDCMP  COUNTER  TABLES 
DDCMP  TABLE  0  -  NETWORK  MANAGEMENT  LAYER  (DDCMP  LINE  TABLE) 


5CPC10:  DLCOUS  0,16.,S.TIMC,R1 
DCPLNO:  DLCOUS  0,16. ,L.TIMC,R0 
DLCOUS  END 


SECONDS  SINCE  LAST  ZEROED  (STATION) 
SECONDS  SINCE  LAST  ZEROED  (CONTROLLER) 


DDCMP  TABLE  1  -  DATA  LINK  LAYER  (DDCMP  LINE  AND  STATION  TABLES) 


DCPCI1: 


DLCOUS 

DLCOUS 

DLCOUS 

DLCOUS 

DLCOUS 

DL8MS 

DLBMS 

DLSMS 

DLBMS 

DLCOUS 

DLBMS 

DLBMS 

DLBMS 

DLBMS 

DLCOUS 

DLCOUS 

DLCOUS 

DLBMS 

DLBMS 

DLBMS 

DLCOUS 

DL8MS 

DLBMS 

DLBMS 

DLCOUS 

DLCOUS 

DLBMS 

DLBMS 

DLBMS 


DCPLNI:  DLCOUS 
DLBMS 
DLBMS 
DLBMS 
DLBMS 
DLBMS 

DLCOUS 
DLBMS 
DLBMS 
DLBMS 
DLBMS 
DLBMS 

DLCOUS 


,S.RCVB,R1 

,S.XMTB,R1 

,S.RCVC,R1 

,S.XMTC,R1 

S.NKSW,R1,8M 

DLCF,BIIO 

DLCF.BITI 

DLCF,BIT2 

S.NKRW,R1,BM 
DLCF.BIIO 
DLCF.BITI 
DLCF,BIT2 


S.REPR.RI 

S.REPS,R1 

S.NKRB.Rl, 

DLCF.BITO 

DLCF.BITI 


BM 


1000. ,32. 

1001. ,32. 

1010. ,32, 

1011. ,32, 

1020., 8., 

SE.SHCS, 

SE.SDCS, 

SE.SRR,S, 

END 

1021. ,8., 

SE.RCH,S, 

SE.RDCS, 

SE.RRR.S- 

END 

1030., 8. 

1031. ,8. 

1040. ,8. 

SE.ftBU,S 

SE.RBS,S 

END 

1041. ,8. 

SE.S8U,S 

SE.SBS.S 

END 

1050. ,16 

1051. ,8. 

SE.NRS,S 

SE.IRCS 

END 


1100.,8.,L.NRSE,R0,BM 

LE.NRO,L.SCFW,BIT0 

LE.NSH,L.SCFW,BITi 

LE.SAE,L.SCFU,BIT2 

LE.STT,L.SCFW,8IT3 

END 

'   "  ,L.NLSE,RO,BM 
.SCFU,8IT0 
.SCFW,BIT1 


S.NKSB,R1,BM 

DLCF,BITO 

DLCF,8IT1 

,S.SELC,R1 
S.SELT,R1,BM 
DLCF,8IT0 
DLCF,BIT1 


1101. 

LE.NSO.L. 

LE.fiCO,L._.   ._. 

LE.XTU,L.SCFW,BIT2 

LE.NRH,L.SCFW,BiT3 

END 

END 


BYTES  RECEIVED 

BYTES  SENT 

DATA  BLOCKS  RECEIVED 

DATA  BLOCKS  SENT 

DATA  ERROR  INBOUND 
NAK'S  SENT  DATA  HEADER  BLOCK  CHECK 
NAK'S  SENT  DATA  FIELD  BLOCK  CHECK 
NAK'S  SENT  REP  RESPONSE 

DATA  ERRORS  OUTBOUND 
NAK'S  RECEIVED  DATA  HEADER  BLOCK  CHECK 
NAK'S  RECEIVED  DATA  FIELD  BLOCK  CHECK 
NAK'S  RECEIVED  REP  RESPONSE 

REMOTE  REPLY  TIMEOUTS 

LOCAL  REPLY  TIMEOUTS 

REMOTE  BUFFER  ERRORS 
NAK'S  RECEIVED  BUFFER  UNAVALABLE 
NAK'S  RECEIVED  BUFFER  TOO  SMALL 

LOCAL  BUFFER  ERRORS 
NAK'S  SENT  BUFFER  UNAVALABLE 
NAK'S  SENT  BUFFER  TOO  SMALL 

SELECTION  INTERVALS  ELAPSED 
SELECTION  TIMEOUTS 

NO  REPLY  TO  SELECT 

INCOMPLETE  REPLY  TO  SELECT 


REMOTE  PROCESS  ERRORS 
NAK'S  SENT  RECEIVE  OVERRUN 
NAK'S  SENT  HEADER  FORMAT  ERROR 
SELECTION  ADDRESS  ERRORS 
STREAMING  TRIBUTARIES 

LOCAL  PROCESS  ERRORS 
NAK'S  SENT  RECEIVE  OVERRUN 
RECEIVE  OVERRUNS  NAK  NOT  SENT 
TRANSMIT  UNDERRUNS 
NAK'S  RECEIVED  HEADER  FORMAT  ERROR 
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DEALUN  -  DEASSIGN  TEMPORARY  LUN  MACRO  V05.03b  Saturday  29-Jun-85  17:^2  Page  5 
MACRO  LIBRARY  CALLS 


56 

57 

58 

59 

60 

61 

62 

63  000000 

6^. 


.SBTTL  MACRO  LIBRARY  CALLS 
LIBRARY  CALLS 


.MCALL  SAVMAP.RESMAP.MAP 

.IF     NDF,I$$AS 

.MCALL   HDRDFS 

HDRDFS 

.ENDC 


DEFINE  TASK  HEADER  OFFSETS 
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DLCCOU  -  READ  AND  ZERO  OLC  PRO  MACRO  VO5.03b  Saturday  29-Jun-85  12:22 
SPRCCO-  Read  and  zero  DLC  CIRCUIT  counters 
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126  0001 2A 

127  000126 

128  000130 

129  0001 3A 

130  000136 

131  000140 

132  OOOUA 

133  000150 

134  000152 
135 

136  000160 

137  000164 

138  000166 

139  000172 

140  000176 

141  000200 
142 

143  000210 

144  000212 

145  000214 

146  000224 

147  000226 

148  000230 
149 

150 
151 
152 
153 
154 

155  000240 

156  000242 

157  000250 

158  000252 

159  000254 

160  000262 

161  000264 

162  000266 

163  000270 

164  000274 

165  000276 

166  000300 

167  000302 

168  000306 

169  000310 
170 

171  000314 

172  000322 
173 

174 
175 

176  000324 

177  000330 
178 

179  000332 
180 

181  000336 

182  000342 


160116 
011600 

012600 

010001 

066501  000030 

067702  OOOOOOG 

011202 


116502  000022 

006302 

066502     000032 

020227     120000 

103404 


012205 

012246 
001404 


005002 

132764  000010  000041 

001406 

005302 

132764  000002  000041 

001401 

122222 


012605 
001402 


032764  000010  000064 
001003 


105765  000022 
001402 


010366  OOOOOOG 
000421 


20$: 


SUB 

MOV 

CALL 

MOV 

MOV 

ADD 

ADD 

MOV 

MAP 

MOVB 

ASL 

ADD 

CMP 

BLO 

BIAS 

SAVRG 

MOV 

BIAS 

MOV 

BEQ 

BIAS 


Rl 


R1,(SP) 

(SP),RO 

COPY 

(SP)t,RO 

R0,R1 

C.CNT2(R5), 

aPDVTA,R2 

(R2),rJ 

Z.DSP(R2) 


C.FLG1(R5),R2 

R2 

C.FLG2(R5),R2 

R2, #120000 

20i 

R2 


<R5> 

(R2)+,R5 

R5 

(R2) 

25$ 

(SP) 


(SP) 


allocate  space  at  end  of  buffer 
set  up  for  copy 

copy  data  to  end  of  message  buffer 
Get  address  of  line  data 

Getaddress  of  station  data 

Point  to  PDV  address       ;  RJKOl 

Point  to  process  PDV 

Map  to  format  tables 

Retrieve  entity  type 

Make  entity  type  a  doubleword  index 

Point  into  line  table  extension 

APR  5  address  ? 

if  LO,  no  -  its  in  DSR 

bias  address  for  APR  6 

Save  CCB  address 

Point  to  line  formatting  table 

use  APR  6  bias 

Point  to  station  formatting  table 

If  EQ,  no  station  table 

Else  use  APR  6  bias 


Set  up  R2  so  that  the  proper  counters  are  returned: 
0  =  Point-to-Point 
-1  =  Multipoint  controller  counters 
+1  =  Multipoint  trib  counters 


55$: 


30$: 


40$: 


45$: 


50$: 
55$: 


rip  p2 

BITS  *LP$MPT,L$PFG(R4) 

BEQ  30$ 

DEC  R2 

8ITB  #LP$7RB,L$PFG(R4) 

BEQ  30$ 

CMPB  {R2)+,(R2)+ 

SAVRG  <R2> 

CALL  FMTCOU 

RESRG  <R2> 

MOV  (SP)+,R5 

BEQ  40$ 

CALL  FMTCOU 

RESRG  <R5> 

RE  SWAP 

BIT  #LF$VR2,L$FLG(R4) 

BNE  50$ 


.IIF  NE  CM. LIN  .ERROR 


TST8 
BEQ 

CALL 


C.FLG1(R5) 
55$ 

GETXPT 


MOV     R3,R$R3(SPl 
BR     65$ 


;;  Assume  return  all  counters  (pt  to  pt) 

;;  Is  this  a  multipoint  line  ? 

;;  If  EQ,  no  -  return  all 

;;  Assume  only  return  controller  counters 

;;  Was  a  tributary  specified  ? 

;;  If  EQ,  no 

;;  Else,  return  station  counters  only 

;;  Save  line-type  indicator 

;;  Get  the  time  counter 

;;  Restore  base  counter  indicator 

;;  Pick  up  station  format  table  address 

;;  If  EQ,  yes  we  have  no  stations 

;;  else  format  the  counters 

;;  Restore  CCB  address 

;;  Restore  APR  6 

;;  Speaking  NICE  V2.0  ? 

;;  if  NE,  yes  -  include  XPT  counters 

; ;  Value  error 

;;  else,  is  entity  =  LINE  ? 

; ;  if  EQ,  yes 

;;  else  get  transport  counters 

;;  Update  user  state  R3 

;;  Return  buffer 
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SYMBOL   CROSS  REfERENCE 


8-U8 


J  12 
PAGE   k 

CREF       0^.00 


SYMBOL 

VALUE 

REFERENCES 

M$$MGE 

=  000000 

8-U] 

8-145 

NMCRS 

=   ****** 

GX 

9-274 

N$$VCT 

=   ****** 

8-120 

8-134 

PDVTA 

=   ****** 

GX 

8-132 

9-232 

RQSTCO 

000416 

? 

8-97 

#9-218 

R$RO 

=  ****** 

GX 

*8-192 

♦9-278 

R$R3 

=  ****** 

GX 

»8-181 

11-338 

R$R5 

-  ****** 

GX 

•9-228 

R$$MPL 

=  ****** 

9-240 

R$$110 

r  ****** 

5-55 

R$$11M 

=  000000 

5-55 

8-141 

R$t115 

=    ****** 

5-55 

SF.ACT 

=  000200 

#5-57 

SF.ENA 

=  000100 

#5-57 

SF.LPB 

=  OOOOOA 

#5-57 

SF.MFL 

=  000040 

#5-57 

SF.PAC 

=  000020 

#5-57 

SF.REA 

=  000010 

#5-57 

SF.SER 

=  000001 

#5-57 

SF.SVC 

=  000002 

#5-57 

SF.UNL 

=  000040 

#5-5  r 

S.COST 

000001 

#5-57 

S.FLG 

000000 

#5-57 

S.LEN 

000004 

#5-57 

S.NMST 

000002 

#5-57 

S.OWNR 

000003 

#5-57 

TKTCB 

=    t+t*** 

GX 

9-271 

T.NAM 

=    ****** 

GX 

9-272 

9-273 

XPTCOU 

r  ****** 

GX 

11-330 

11-349 

X$$MCB 

~    ****** 

5-55 

5-55 

ZF.CQU 

=  001000 

#5-55 

ZF.DDM 

=  000001 

#5-55 

ZF.DIA 

=  004000 

#5-55 

ZF.DLC 

=  000002 

#5-55 

ZF.DVP 

:=  100000 

#5-55 

ZF.INI 

=  040000 

#5-55 

ZF.KMX 

=  000020 

#5-55 

ZF.LLC 

=  000004 

#5-55 

ZF.LHC 

=  000100 

#5-55 

ZF.MAN 

=  020000 

#5-55 

ZF.MFL 

=  000010 

#5-55 

ZF.MTM 

=  000400 

#5-55 

ZF.MUX 

=  000040 

#5-55 

ZF.PSE 

=  002000 

#5-55 

ZF.SLI 

=  010000 

#5-55 

ZF.TIM 

=  000200 

#5-55 

ZF.X3P 

=  000000 

#5-55 

ZS.ASN 

=  100000 

#5-55 

ZS.BSY 

=  140000 

#5-55 

Z.AVL 

000014 

#5-55 

Z.DAT 

000016 

#5-55 

Z.DSP 

000000 

#5-55 

5-55 

8-169 


•11-354 


8-145 


10-301 
8-193 


8-148 


9-279 


10-301 


10-297 


10-299 


10-305 


8-134 
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FNDDLM  -  FIND  THE  DLM  LINE  TABLE  FOR  A  CIRCUIT 
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127 
128 
129 
130 
131 
132 
133 
13A 
135 
136 
137 
138 
139 
UO 
U1 
U2 
U3 
U4 
U5 
U6 
H7 
KB 
U9  000062 

150  000062 

151  000066 

152  00007A 

153  000076 
15A  000102 

155  000106 

156  000110 

157  000114 

158  000116 

159  000124 
160 

161 

162  000130 

163  000134 

164  000136 

165  000146 
166 

167  000146 

168  000150 

169  000154 

170  000156 
171 

172 

173  000160 

174  000164 

175  000166 

176  000176 
177 

178  000176 

179  000204 

180  000206 

181  000210 

182  000212 

183  000214 


.S8TTL  FNDDLM  -  FIND  THE  DLM  LINE  TABLE  FOR  A  CIRCUIT 
'♦•-FNDDLM-FIND  THE  DLM  LINE  TABLE  FOR  A  CIRCUIT 
THIS  ROUTINE  IS  CALLED  TO  FIND  THE  DLM  LINE  TABLE  FOR  A  CIRCUIT. 


INPUTS: 
R4 


ADDRESS  OF  CONTEXT  AREA  WITH; 
L$SLT(fi4)  =  ADDRESS  OF  SLT  FOR  LINE 
L$TRB(R4)  =  LOGICAL  TRIBUTARY  NUMBER  FOR  LINE 


OUTPUTS: 
IF 


CC,  DLM  IS  THE  DLC  FOR  THE  LINE,  AND  THE  TRIBUTARY  NUMBER 
WAS  MATCHED  IN  THE  POLLING  LIST, 
RO  =  ADDRESS  OF  DLM  LINE  TABLE 
R1  =  ADDRESS  OF  TRIBUTARY  ENTRY  IN  POLLING  LIST 
ELSE,  ERROR 

REGISTERS: 

R4,  R5  ARE  PRESERVED 


016400  000042 

032760  040000  000000 

001446 

012702  015355 

103441 

120260  000003 

001036 

016000  000010 


020027  120000 
103404 


FNDDLM: 


5$: 


7$: 


010002 

062702  000006 

011201 

001415 


020127  120000 
103404 


126164  000002  000040 
001404 


010102 
000761 
000261 
000401 


MOV  L$SLT(R4),R0 

BIT  #LF.RDY,L.FLG(RO) 

BEQ  30$ 

MOV  #*RDLM,R2 

CALL  aPDVID 

BCS  30$ 

CMPB  R2,L.DLC(R0) 

BNE  30$ 

MAP  L.DLM(RO) 

MOV  L.DLS(RO),RO 

.IF  DF  M$$MGE 

CMP  R0,/»120000 

BLO  7$ 

BIAS  RO 

.ENDC  ;  M$$MGE 

R0,fi2 

#0$TRHD,R2 
(R2),R1 
30$ 

M$$MGE 

Rl, #120000 

15§ 

R1 

;  M$$MGE 

Q$STN(R1),L$TRB(R4) 

40$ 

R1,R2 

lOi 

50$ 


MOV 

ADD 

10$: 

MOV 

BEQ 

.IF  DF 

CMP 

BLO 

BIAS 

15$: 

.ENDC 

CMPB 

BEQ 

20$: 

MOV 

BR 

10$: 

SEC 

BR 

GET  THE  SLT  ADDRESS 

IS  THE  LINE  LOADED  ? 

IF  EQ,  NO  -  RETURN  WITH  ERROR 

SET  OLM'S  PROCESS  NAME 

GET  IT'S  PDV  INDEX         ;  RJK01 

IF  CS,  NOT  THERE  I  ;**-1 

IS  THIS  A  DDCMP  LINE  ? 

IF  NE,  NO  -  CAN'T  DO  IT 

MAP  TO  THE  LINE  TABLE 

GET  LINE  TABLE  VIRT  ADDRESS 


MAPPED  THROUGH  APR  5  ? 

IF  LO,  NO 

FORCE  APR  6  MAPPING  (APR  2  FOR  IAS) 


POINT  TO  THE  POLLING  LISTHEAD 
GET  THE  NEXT  ENTRY 
IF  EQ,  NOT  HERE  -  ?? 


MAPPED  THROUGH  APR  5  ? 

IF  LO,  NO 

FORCE  APR  6  MAPPING  (APR  2  FOR  IAS) 


IS  THIS  THE  TRIBUTARY  ? 

IF  EQ,  YES 

ELSE,  CONTINUE  SCAN 

SET  ERROR 
AND  RETURN 


MA  mn 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
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I  F  NDF  M$$ACP 

.T  TLE  DLXQIO  - 

ISSUE 

I  F  DF  M$$ACP 

.T  TLE  DLXAST  ■ 

ISSUE 

.IDENT 

/Vi'S.OO/ 

.NLIST 

BEX 

I/O  TO  DLX 

I/O  TO  DLX  AND  WAIT  FOR  AST 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 
NETWORK  MANAGEMENT 


ISSUE  1/0  REQUESTS  TO  NX:  (DLX) 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  24-MAR-81 

CREATED  FROM  LICHOP,  CONDITIONALIZED  TO  FORK  WHEN  RUNNING  IN 
THE  NETWORK  MANAGEMENT  ACP 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


CREATED  BY     MACRO     ON  ?9-JUN-85   AT   1?:23 


DLXQIO 

SYMBOL   CROSS  REfERENCE 

SYMBOL   VALUE 


LStMRT 

=  000020 

.StMUN 

=  000040 

LSSMXB 

=  001000 

.StMXR 

=  000020 

.SSMXW 

=  000040 

lSSNMT 

=  020000 

.S$NOR 

=  100000 

.S$NT1 

=  000200 

lSSNTL 

=  000001 

LStNUM 

=  000100 

LSSOWN 

=  000010 

LSSPLT 

=  004000 

LSSPRO 

=  010000 

LSSPVC 

=  020053 

LSSRET 

=  000200 

LSSSER 

=  100000 

LS$STA 

=  000002 

LSSSVC 

=  000362 

LStTAD 

=  000020 

LSSTHI 

=  000100 

LS$TH2 

=  000200 

LS$TH3 

=  000400 

LSSXMT 

=  040000 

L$ACT 

000104 

LSBBT 

000114 

L$BLK 

000262 

LSBSA 

000122 

LSBSD 

000123 

L$BSI 

000124 

LSBUF 

000060 

lSCHN 

000054 

LSCMB 

000234 

L$COS 

000101 

L$CTB 

000053 

LSCTL 

000002 

LSCUS 

000260 

LSDDM 

000000 

L$DDT 

000106 

L$DEA 

000105 

LSDLT 

000110 

LSDTE 

000240 

L$DTEL 

000236 

LSDTEP 

000250 

L$FLG 

000064 

L$FLX 

000076 

L$FL1 

000066 

LSFL2 

000070 

LSHBT 

000254 

1  $HTM 

000226 

LSINA 

000125 

LSIND 

000126 

L$INI 

000127 

REFERENCES 

#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-75 
#6-7S 
#6-75 


6-75 
6-75 


6-75 


6-75 


6-75 
6-75 
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6-75 


6-75 
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J 


000022 
000022 
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91 

92 

93 

9A 

95 

96 

97 

98 

99 

100 

101 

102 

105 

104 

105 

106 

107 

108 

109 

110 

m 

112 
113 
1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
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.S8TTL  DLXQIO  -  ISSUE  I/O  REQUEST  TO  NX; 

'••-DLXQIO-ISSUE  I/O  REQUEST  TO  DLX 

THIS  ROUTINE  IS  CALLED  TO  ISSUE  A  DLX  REQUEST. 

INPUTS: 

RO  =  FUNCTION  CODE 

Rl  =  PI  (OPTIONAl ) 

R4  =  ADDRESS  OF  CONTEXT  BLOCK 

OUTPUTS: 

IF  CC,  OPERATION  SUCEEDED 

ELSE,  OPERATION  FAILED,  ERROR  CODE  FILLED  INTO  DLXMSG  STRING 

REGISTERS: 

NO  REGISTERS  MODIFIED 


DLXQIO:: 

CALL    SSAVAL 

FORMAT  LINE-ID  STRING  FOR  DLX 
.IF  NDF  M$$ACP 


MOV 
ADD 


R4,R3 
*L$SCR,R3 


.IFF    ;NDF  M$$ACP 


000026  016703  OOOOOOG 

000032  010305 

000034  062703  OOOOOOG 

000040  062705  OOOOOOG 


000044 


MOV 
MOV 
ADD 
ADD 


CURCTX,R3 
R3,R5 
#C$L0C,R3 
#C$STAT,R5 


.IFTF  ;NDF  M$$ACP 

SAVRG  <R3> 

.IF  DF  S$$8AS  I  R$$RTR 

CALL  FMTLN2 


SAVE  ALL  REGISTERS 


COPr  THE  CONTEXT  AREA  POINTER 
POINT  TO  THE  SCRATCH  BUFFER 


COPY  THE  CONTEXT  AREA  POINTER 

POiNT  TO  THE  SCRATCH  BUFFER 
...  AND  THE  I/O  STATUS  BLOCK 


SAVE  R3 


FORMAT  PHYSICAL  LlNE-lD 


000046 


000052 

000054  112302 


.IFF 

CALL 

FMTLIN 

;  FORMAT  A  LINE-ID  STRING 

.ENDC 

;  DF  S$$BAS 

R$$RTR 

RESRG 
M0V8 

<R3> 
(R3)+,R2 

;  RESTORE  LINE-ID  POINTER 
;  GET  STRING  LENGTH 

ISSUE  I/O 

.IFT 

;NDF  M$$ACP 

MATDn      \ir\^       A7K      Ci^llr■/^a^. 
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MDtDV 

000026 

ME.BLO 

177744 

MD$DZ 

000030 

ME. CON 

177753 

MDtFUL 

COOOOO 

ME.CST 

177765 

MDSHAL 

000001 

ME.DIS 

177755 

«0$HEL 

000002 

ME. DON 

177600 

MDKCP 

000013 

ME.FCO 

177762 

MDSKDP 

000034 

ME. FIG 

177756 

MDSKDZ 

000036 

HE. FOP 

177763 

ND$KL 

OOOOAO 

ME. FOR 

177776 

MDtKMX 

000C5A 

ME. FUN 

177777 

MDKMY 

000052 

ME.GRO 

177745 

MDtLEN 

000050 

ME.HAR 

177750 

MDtPCL 

000011 

ME.IID 

177767 

MDSQNA 

000005 

ME.LCO 

177766 

MDSUNA 

000001 

ME.LPR 

177757 

NDSUIT 

000002 

ME.HPR 

177773 

MD . ABO 

000017 

ME.HVE 

177771 

MD.AfC 

000010 

ME. OPE 

177747 

MD.AOe 

000016 

HE.PLO 

177751 

MO. BOB 

000011 

ME.PMI 

177743 

MD.DIA 

000007 

ME.PNA 

177752 

HD . DOB 

000015 

HE.PRI 

177775 

MD.3UM 

000002 

ME.PTY 

177772 

MD.FAI 

OOOOU 

WE.PVA 

177760 

MD.FNA 

000001 

ME. RES 

177761 

MD.FOB 

000006 

ME.ROO 

177754 

MD.LOA 

000001 

ME.SIZ 

177774 

MD.LSH 

000020 

ME. SYS 

177746 

ID. NOB 

000012 

ME.UCO 

177770 

MD.NON 

177777 

MFSACr 

177776 

MD.PER 

000000 

MFSADD 

000000 

M3.RES 

000004 

MFSADJ 

177774 

MD.R08 

000005 

MFSALL 

177775 

KD.RSF 

000013 

MFSBYE 

000300 

MD.SDU 

000005 

MFSCHA 

000023 

HD.SLO 

000003 

MFSDUM 

000020 

MD.SNA 

000000 

MFSEVT 

000001 

MD.TLO 

000004 

MFSFUP 

000264 

MD.UNA 

000002 

HFtKNO 

177777 

MD.UNR 

000003 

HFSLOA 

000017 

MD.UOB 

000007 

MFSLOO 

177775 

MD.VOL 

000006 

MFSREA 

000024 

MESALI 

000010 

MFSSIG 

177773 

ME  SAL  2 

000003 

MFSSPF 

000302 

MESARE 

000005 

HFSSYS 

000026 

MESCIR 

000003 

MFSTES 

000022 

MESEXA 

000000 

MFSTRA 

000301 

MESEXE 

000200 

MFSTRI 

000021 

MESLIN 

000001 

MFSZER 

000025 

MEtLOG 

000002 

ML SAL L 

100000 

MESMOD 

000004 

MLSCLS 

000000 

MESNOD 

000000 

ML SCON 

000001 

MESNON 

177777 

MLSEXT 

000001 

MESOBj 

000007 

MLSFIL 

000002 

MEtOB2 

000004 

MLSFIR 

000000 

MESPRO 

000005 

MLSINT 

000000 

MEtSVS 

000006 

MLSKNO 

140000 

MLSMON 

MLSSYS 

HLSTOP 

MNSUNL 

MOSACC 

MOSADD 

MOSALA 

MOSALI 

MOSCHA 

MOSCIR 

MOSCLE 

MOSCOU 

MOSDAC 

MOSDEF 

MOSDPR 

MOSENT 

MOSEVE 

MOSINF 

MOSINS 

MOSLIN 

MOSLOG 

HOSMJR 

MOSNAM 

MOSNIC 

MOSNOD 

MOSOFF 

MOSON 

MOSOPT 

MOSPER 

MOSPRO 

MOSPRS 

MOSREA 

MOSSET 

MOSSTA 

MOSSUM 

MOSTSK 

MOSVOL 

MOSZER 

MPSACB 

MPSACC 

MPS ACT 

MPSADD 

MPSADJ 

MPSADP 

MPSADS 

MPSALB 

MPSAMC 

MPSAMH 

MPSAN8 

MPSASB 

MPSASC 

MPSAUS 

MPS8BT 

MPS8DF 

MPS8FQ 

MPSBLK 

HPS8L0 


000003 
000002 
000001 
000377 
000200 
000002 
000004 
000000 
000040 
000003 
000100 
000060 
000000 
000000 
000000 
000017 
000100 
000160 
000002 
000001 
000001 
000'^31 
000001 
000023 
000000 
000001 
000000 
000001 
000200 
000002 
000001 
000200 
000000 
000020 
000000 
000000 
000000 
000000 
000012 
000514 
004526 
000766 
001440 
006325 
004406 
000036 
001640 
001641 
004420 
000024 
004432 
000512 
002165 
002164 
002121 
001616 
001452 


MPSBMX 

MPSBNP 

MPSBRT 

MPSBSA 

MPSBSD 

MPSBSI 

HPSBSP 

MPSBUF 

HPSBUP 

MPSBUS 

HPSCAC 

MPSCAS 

HPSCAT 

MPSCCS 

MPSCHN 

HPSCIR 

MPSCLK 

MPSCLN 

MPJCLT 

HPSCMB 

MPSCHK 

HPSCHX 

MPSCND 

MPSCNU 

MPSCOB 

HPSCON 

MPSCOS 

HPSCPF 

MPSCPL 

MPSCPT 

MPSCPU 

MPSCSZ 

MPSCUS 

HPSCVA 

MPSDAL 

HP$DCO= 

HPSDDT 

MPSDEL 

HPSDES 

MPSDEV 

MPSDFA 

MPSDHO= 

HPSDIA 

HPSDLB 

HPSDLG 

MP$DLI= 

MPSDLT 

MPSDRO 

HPSDST 

MPSDTE 

MPSDTY= 

MPSDUA 

HPSDUC 

MPSDUM 

HPSDUP 

MPSDVC 

MPSDWE 


0021  :'6 
0063:i0 
OOlo.-.'O 
0021/6 
002r:03 
002200 
00o331 
0C0170 
0  )6324 
001643 
001750 
001762 
002210 
004406 
002141 
000144 
002131 
002"26 
002211 
002142 
000537 
002153 
000310 
001753 
000311 
002126 
001604 
000230 
000232 
000226 
000161 
001755 
002127 
000540 
002570 
001464 
002177 
001131 
000156 
002114 
001320 
001465 
000173 
002571 
004521 
001466 
002200 
001441 
000454 
002140 
001452 
000207 
000210 
000202 
002127 
002114 
001321 


MPSELT 
MPSETY 
MPSEVE 
MPSFNC 
MPSGDT 
HPSGNM 
HPSGRO 
HPSGRP 
MPSGTY 
MPSHAD 
MPSHBT 
MPSHDD 
HPSHTH 
HPSHWA 
MPSIAT 
MPSIDE 
MPSIDP 
MPSIHO 
MPSINA 
MPSIND 
HPSINI 
MPSITI 
MPSLAA 
MPSLAN 
MPSLAR 
MPSLAS 
MPSLBS 
MPSLCO 
MPSLCT 
MPJLHL 
MPSLLE 
HPSLLO 
HPSLMB 
MPSLMX 
MPSLNA 
MPSLNO 
MPSLOA 
MPSLOG 
HPSLOO 
MPSLTM 
MPSLTY 
MPSLUI 
MPSMAC 
MPSMAD 
MPSMAP 
MPSMAR 
HPSHAV 
HPSMBN 
MPSMBR 
HPSMBU 
MPSMCB 
MPSMCO 
HPSMDE 
MPSMHO 
MPSMLB 
MPSMLK 
MPSMLN 


000157 
001605 
000311 
001752 
002222 
002223 
002115 
000541 
002224 
001757 
002142 
000162 
001612 
002210 
001322 
000144 
006327 
000215 
002177 
002204 
002201 
000776 
000231 
000234 
000202 
000012 
000203 
000226 
000156 
000232 
000227 
00443? 
002152 
002200 
000144 
000233 
000170 
004514 
000620 
001613 
004533 
000230 
004420 
001630 
006323 
00163. 
006321 
001636 
001637 
001642 
000156 
001632 
004421 
001633 
000202 
001306 
001631 
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156 
137 
138 
139 
KO 
1A1 
142 
K3 
U4 
K5 
U6 
U7 
U8 
K9 
150 
151 
152 
153 
154 
155 
156 
157 
138  000052 

159  000052 

160  000056 

161  000062 

162  000070 

163  000072 

164  000076 

165  000076 

166  000102 

167  000104 
168 

169 
170 
171 

172  000110 

173  000114 

174  000116 

175  000120 

176  000126 

177  000130 

178  000134 

179  000136 

180  000142 
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.SBTTL  CIREST  -  Read  line  status 

'♦•-CIREST-READ  A  LINE  STATUS 

THIS  ROUTINE  IS  CALLED  TO  RETURN  STATUS 
PARAMETERS  RETURNED  INCLUDE  STATE,  SUS-S 
ADJACENT  NAME. 


INFORMATION  ABOUT  A  LINE. 
TATE,  LOOPBACK  NAME,  AND 


INPUTS: 

R3  =  ADDRESS  OF  NEXT  FREE  BYTE  IN  OUTPUT  BUFFER 
R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

R3  =  ADDRESS  OF  NEXT  FREE  BYTE  IN  OUTPUT  BUFFER 

REGISTERS: 

R4  IS  PRESERVED 

.IF  DF  R$$11S 
.PSECT  NIXCOD 


FORCE  CODE  TO  APR6  FOR  IIS 


.ENDC 


181  000146 

182  000150 

183  00C154 

184  000156 

185  000162 

186  000164 

187  000166 

188  000170 

189  000172 

190  000174 
191 

192 


016400  000042 

016401  000050 
032764  100000  000064 
001402 

000167  000456 

020127  177777 
001002 


004567  OOOOOOG 

000000 

000201 

032760  04000C  OOfOOO 

001003 

112723  000003 

000462 

116002     000020 

•,05760     00C014 

001402 

116102  000002 

110201 

042701  177760 

040102 

006202 

006202 

006202 

006202 

116123  000000' 


CIREST:: 


MOV  L$SLTtR4),R0 

MOV  L$TPT(R4),R1 

BIT  #LF$SEG,L$FLG(R4) 

BEO  10$ 

JMP  70$ 

10$:    .IF  NDF  R$$11S  8  R$$PRO 

CMP  R1,#-1 

BNE  20$ 

CALLR  PSICIR 
.ENDC 

ISOIATE  AND  RETURN  THE  LINE  STATE 

J0$:    JSfi  R5,SETPAR 

.wr,<D  mpIsta 

.WORD  MT$C0DI1 

BIT  #LF.fiDY,L.FLG(R0) 

BNE  25$ 

MOVB  #MS$CLE,(R3)+ 

BR  50$ 

25$:    MOVB  L.NMST(R0),R2 

TSTB  L.NSTA(RO) 

BEQ  30$ 

MOVB  S.NMSTCR1),R2 

30$:    MOVB  R2,R1 

SIC  #*C17,R1 

BIC  R1,R2 

ASR  R2 

ASR  R2 

ASR  R2 

ASR  R2 

MOVB  STAT8L(Rl),(R3)t 

;  CONDITIONALLY  RETURN  THE  LINE  SUB-STATE 


GET  THE  SLT  ADDRESS 

POINT  TO  THE  TRIB  FLAGS 

partial  response  in  progress  ? 

if  EO,  no 

if  NE,  pick  up  where  we  left  off 

IS  THIS  A  PSI  CIRCUIT? 

BR  IF  NO 

FORMAT  PVC  INFORMATION 


RETURN  STATE  PARAMETER  TYPE 

ONE  CODED  BYTE 

IS  THE  LINE  CLEARED  ? 

IF  NE,  NO  -  RETURN  STATE 

ELSE,  RETURN  STATE  =  CLEARED 

AND  SKIP  SUB-STATE 

GET  THE  MANAGEMENT  STATE 

MULTIPOINT  ? 

IF  EQ,  NO 

ELSE  GET  TRIB  STATE 

COPY  STATE/SUB-STATE 

ISOLATE  STATE  BITS 

ISOLATE  SUB-STATE  BITS 

GET  SUB-STATE  INTO  LOW  BITS 


MAP  INTO  CORRECT  NICE  PROTOCOL  STATE 
(BASED  ON  STATE  AND  SUB-STATE) 
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Symbol  table 

MPtCPF  000230 

MPSLCO 

000226 

MPSNUM  001642 

MPSSIN  000310 

MSSLOA 

000003 

MPSCPL  000232 

MPSICT 

000156 

MPSNVE  001274 

MPSSLI  000156 

MSSLOO 

000002 

MPSCPT  000226 

MPSLHL 

000232 

MP$NXN=  001476 

MPSSLO  000171 

MSSOFF 

000001 

MPSCPU  000161 

MPSLl  E 

000227 

MPSOAC  000632 

MPSSMX  002202 

HSJON 

000000 

MPSCSZ  001755 

HPILLO 

004  M  2 

HPSOAN  000620 

MP$SND  000500 

MSSPRO 

88299^ 

MPSCUS  002127 

MPSLMB 

002152 

MPSOCO  000776 

MPSSNP  006332 

ns$REA 

000004 

MPSCVA  000540 

MPSLHX 

002200 

HP$OHO  000214 

MPSSNU  000542 

MSSREF 

000001 

MPSDAL  002570 

HPSLNA 

000144 

MPSONA  00C764 

MPSSOB  000524 

MSSRES 

000003 

MP$DCO=  0OK64 

MPSLNO 

000233 

MPSONR  002114 

MPSSPA  000157 

MSSRST 

000001 

MPSODT  002177 

MPILOA 

000170 

HPSOQL  001453 

HPSSPR  000536 

MSSRSX 

000002 

.  ^$DEL  001131 

MPtLOG 

004514 

MPSOTI  000777 

MPSSPS  000513 

HSSRT 

000005 

MPSDES  000156 

MPSLOO 

000620 

MPSOTY  001022 

MPSSTA  000000 

HSSSER 

000002 

MPSDEV  0021 U 

HPSLTH 

001613 

HPSOUS  000777 

HPSSTI  002140 

MSSSHU 

000002 

HPSDFA  001320 

HPSLTY 

004533 

MPSOVE  001010 

MPSSTT  002201 

MSSSRV 

000007 

MP$DHO=  00U65 

MPSLUI 

000230 

MPSOUN  004374 

MPSSTY  000175 

MSSSTA 

000000 

MPSDIA  000173 

MPSHAC 

004420 

HPSPAR  000036 

MPSSUB  000001 

MS$SYN 

000012 

MPSDLB  002571 

MPSMAD 

001630 

MPSPAS  000513 

MPSSUR  000156 

MSSTER 

000001 

MPSDLG  004521 

HPSHAP 

006323 

HPSPCH  002152 

MPSSUS  000512 

MSSTOP 

000003 

HP$DLI=  001466 

MPSMAR 

001635 

MPSPCO  000024 

MPSSVR  000163 

HSSTRI 

000005 

MPSOLT  002200 

MPSMAV 

006321 

MPtPCT  000144 

MPSSWI  002260 

HSSUNR 

S9SS95 

MPSDRO  001441 

MPSMBN 

001636 

MPIPDT  002114 

HPSSYP  002424 

HSSVMS 

000004 

MPSDST  000454 

MP$MBR 

001637 

MPSPHA  000170 

MPSTFL  000156 

MS. DON 

1 77600 

HPSDTE  002140 

HPSMBU 

001642 

MP$PHY  000012 

MPITHl  002206 

MS.MOR 

000002 

MP$DTY=  001452 

MPSHCB 

000156 

MPSPLI  000025 

MP$TH2  002205 

MS. PAR 

000003 

HPSDUA  000207 

HPSHCO 

001632 

MPSPLN  002140 

MP$TH3  002202 

MS. sue 

000001 

MPSDUC  000210 

HPSMDE 

004421 

MPSPLO  000012 

HPITLN  000202 

MT$AR4 

000003 

MPSDUM  000202 

MPSMHO 

001633 

MPSPHC  004374 

HPSTLO  000172 

MTJASC 

000100 

MPSDUP  002127 

HPIMLB 

000202 

MPSPNT  002126 

HPSTPA  004375 

MTSBIL 

000001 

MPSDVC  002114 

MP$HLK 

001306 

HPSPRI  004411 

HPSTRI  002164 

HTJBYS 

000011 

MPSDWE  001321 

MPSMLN 

001631 

HPSPRO  002130 

MPSTST  000144 

MT$CI 

000007 

MPSELT  000157 

MPSHLP 

006333 

MPSPSS  001763 

MPSTYP  002130 

MTSCLE 

000077 

MPSETY  001605 

HPSHRB 

002171 

MPSPST  001762 

HPSUCS  004407 

HTSCOD 

899^8? 

MPSEVE  000311 

MPSMRO 

001605 

MPSRET  001631 

MPSUSR  001750 

MTSCON 

000001 

MPSFNC  001752 

MPSHRP 

006322 

MPSRFA  001323 

HPSveC  004410 

MTSDMC 

000004 

MPSGDT  002222 

MPSMRT 

002153 

MPSRMX  002201 

MPSVER  004406 

MTSETH 

88989S 

MPSGNM  002223 

MPtMRV 

006320 

MPSRPA  004374 

MPSUDF  002165 

MTSHEX 

000040 

MPSGRO  002115 

MP$MS8 

000170 

HPSRPR  001606 

HPSWMX  002177 

MTILPB 

000005 

MPSGRP  000541 

HPSMVE 

000145 

MPSRRT  002213 

MPSXMT  002166 

MTSMAX 

000037 

MPSGTY  002224 

MPSHVI 

001634 

MPSRST  002212 

MPSXPF  000242 

MTSMUL 

000100 

MPSHAD  001757 

MPSMVR 

001751 

MPSRSV  001754 

MPSXPL  000244 

MTSNLE 

000017 

MPSHBT  002142 

MPIMWN 

002154 

HPSRSZ  001756 

MPSXPT  000240 

MT$NON 

000001 

MPSHDD  000162 

MPSMXB 

002172 

MPSRTI  001616 

MPSxxx  yiim 

HT$NR4 

99999S 

MPSHTM  001612 

MPSMXC 

000466 

MPSRTM  001611 

MP$5ST  004406 

MTSNTY 

000060 

MPSHWA  002210 

MPSHXR 

001630 

MPSRVE  001604 

MSSACT  000001 

HTSOCT 

000060 

MPSIAT  001322 

MPSHXW 

002143 

MPSRVT  000156 

MSSADU  000010 

HTSPHA 

000002 

MPSIDE  000144 

HPSNAA 

006335 

MPSSAC  000514 

MSSALO  000007 

MTSPOl 

000000 

MPtlDP  006327 

MPSNAC 

001130 

HPSSAD  000543 

HSSASE  000006 

MT$QP2 

000010 

-  - 

MPSIHO  000215 

HPSNAP 

006326 

MPSSCA  000310 

MSSATR  000011 

HTSROU 

000000 

MPSINA  002177 

HPSNCT 

000240 

MPSSCO  000144 

MSSAUT  000000 

MT$R04 

000004 

MPSIND  002204 

MPSNET 

002114 

MPSSCT  002176 

MSSCLE  000003 

MTSSEC 

000000 

MPSINI  002201 

MPSNLI 

000765 

HPSSDU  000203 

HSSDED  000004 

MTSSGD 

000020 

MPSITI  000776 

MPSNNA 

000764 

MPSSDV  000160 

MSSDIE  000003 

MTSSYS 

99999? 

MPSLAA   '0231 

MPSNOD 

000500 

MPSSEH  004401 

MSSDUM  000004 

MTSTER 

000001 

MPSLAN  000234 

MPSNRA 

006334 

MPSSER  000144 

MSSFAI  000013 

MTSTRI 

000002 

MPSLAR  000202 

MPSNRB 

000214 

MPSSET  000000 

MSSGLO  000000 

MTSTYP 

007777 

MPSLAS  000012 

MP$NSA 

001617 

MPSSGZ  001644 

MSSHOL  000002 

MTSUSD 

000000 

MPSLBS  000203 

MPSNTI 

002141 

MPSSID  000176 

MSSINA  000002 

MT$X25 

000003 

CIREST  -  READ  CIRCUIT 

STATUS 
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MACRO  CALLS  AND  LOCAL  DATA 


000072 

000074 

000075 

000075 

000076 

000100 

000101 

000102 

000103 

0001 OA 

000105 

000106 

000110 

000112 

0001 U 

000116 

000120 

000122 

000123 

000124 

000125 

000126 

000127 

000130 

000131 

000132 

000133 

000134 

000166 

000224 

000226 

000230 

000230 

000232 

000234 

000234 

000236 

000236 

000240 

000240 

000250 

000252 

000252 

000253 

000253 

000254 

000256 

000256 

000260 

000262 


000264 
000000 


L$PAR: 

LJSLEN 

LSPRO: 

LSMTYP 

LSFLX 

LSSTA 

LSCOS 

LSOUN 

L$TAD 

LSACT 

L$DEA 

LSDDT 

L$DLT 

LSPLT 

LSBBT 

L$NMT 

LSXHT 

L$8SA 

L$BSD 

L$BSI 

LIINA 

LSIND 

LSINI 

L$TH1 

L$TH2 

L$TH3 

LSMXB 

L$NTL 

L$SCR 

L$LCT 

LSHTM 

L$SER 

L$LTM 

LlXCH 

L$LMB 

L$CMB 

LSNUML 

LSDTEL 

L$NUM: 

LSDTE: 

LSDTEP 

L$MWN 

L$MXW 

L$MRT 

L$MXR 

L$HBT 

L$NTI 

L$RET 

LSCUS 

LSBLK 

LSLTV: 
LSMDT: 


L$LEN: 


.BLKU 
.8LKB 

.BLKB 
.BLKU 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKU 
.BLKW 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLK8 
.BLKB 
.BLKW 
.BLKW 
.BLKW 
.BLKU 

.BLKW 
.BLKW 

.BLKW 

.BLKW 

.BLKB 
.BLKW 

.BLKB 

.BLKB 
.BLKW 

.BLKW 

.BLKW 

.BLKW 

.IF  DF 

.BLKU 

.BLKW 

.ENDC 

.EVEN 

.PSECT 


R$$PR0  ;PRO/DEC 
DF  R$$PR0 
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CURRENT  PARAMETER  TYPE 

Significant  length  of  circuit  name 

Line  protocol 

Network  management  circuit  type 

Flags  word  for  X.25  circuit  commands 

CIRCUIT  STATE 

CIRCUIT  COST 

CIRCUIT  OWNER  (PDV  INDEX) 

TRIBUTARY  ADDRESS 

MULTIPOINT  ACTIVE  RATIO 

MULTIPOINT  DEAD  RATIO 

DMP  DEAD  TIMER 

DMP  DELAY  TIMER 

DMP  POLL  TIMER 

DMP  BABBLE  TIMER 

DMP  NORMAL  TIMER 

DMP  TRANSMIT  TIMER 

DMP  ACTIVE  BASE 

DMP  DYING  BASE 

DMP  INACTIVE  BASE 

DMP  ACTIVE  INCREMENT 

DMP  DYING  INCREMENT 

DMP  INACTIVE  INCREMENT 

DMP  DEAD  THRESHOLD 

DMP  DYING  THRESHOLD 

DMP  INACTIVE  THRESHOLD 

DMP  MAXIMUM  BLOCKS 

NTL  MESSAGE  BUFFER 

SCRATCH  BUFFER 

COUNTER  TIMER 

HELLO  TIMER 

SERVICE 

LISTEN  TIMER 

X25  Logical  Channel  Number  (LCN) 

X25  Max  Block  (Line) 

X25  Max  Data  (Circuit) 

DLM  Number  length 

X25  DTE  length  (Circuit) 

DLM  Number 

X25  DTE  (Circuit) 

X25  Pointer  to  DTE  descriptor  (Circuit) 

X25  Max  Window  (Line) 

X25  Max  Window  (Circuit) 

X25  Max  Retransmits  (Line) 

DLM  Max  Recalls  (Circuit) 

X25  Holdback  Timer  (Line) 

X25  Retransmit  Timer  (Line) 

DLM  Recall  Timer  (Circuit) 

DLM  Usage 

DLM  blocking  state 
net 

;  Loopback  ' ype 
;  Modem  Test 


LENGTH  OF  CONTEXT  AREA 
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CIRMAP 


CREATED  BY  MACRO  ON  29-JUN-85  AT  12:20 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


REFERENCES 


LPSWCN 

=  0000^0 

#5-76 

.PSWDV 

=  000020 

#5-76 

LPSWLD 

=  000360 

#5-76 

.PSWTR 

=  000200 

#5-76 

LP$WUN 

=  000100 

#5-76 

.S$ACT 

=  OOOOAO 

#5-76 

_S$BBT 

=  010000 

#5-76 

.StBLK 

=  001000 

#5-76 

LS$BSA 

=  000001 

#5-76 

LSSBSD 

=  000002 

#5-76 

LSSBSl 

=  000004 

#5-76 

LSSCHN 

=  000001 

#5-76 

LSSCMB 

=  000002 

#5-76 

LSSCOS 

=  000004 

#5-76 

LSSCUS 

=  000004 

#5-76 

LSSDDT 

=  001000 

#5-76 

LSSDEA 

=  000100 

#5-76 

LSSDLM 

=  001004 

#5-76 

LSSDLT 

=  002000 

#5-76 

LSIDTE 

=  000010 

#5-76 

LSSHST 

=  000400 

#5-76 

LSSHTM 

=  010000 

#5-76 

LSSINA 

=  000010 

#5-76 

LSSIND 

=  000020 

#5-76 

LSSINl 

=  000040 

#5-76 

LSSLCT 

=  020000 

#5-76 

LSSLMB 

=  000002 

#5-76 

LSSLOO 

=  040000 

#5-76 

LSSMDT 

=  020000 

#5-76 

LSSMRT 

=  000020 

#5-76 

LSSHWN 

=  000040 

#5-76 

LSSMXB 

=  001000 

#5-76 

LSSMXR 

=  000020 

#5-76 

LSSHXW 

=  000040 

#5-76 

LSSNMT 

=  020000 

#5-76 

LSSNOR 

=  100000 

#5-76 

LSSNTI 

=  000200 

#5-76 

LSSNTL 

=  000001 

#5-76 

LSSNUM 

=  000100 

#5-76 

LSSOWN 

=  000010 

#5-76 

LSSPLT 

=  004000 

#5-76 

LSSPRO 

=  010000 

#5-76 

LSSPVC 

=  020053 

#5-76 

LSSRET 

=  000200 

#5-76 

LSSSER 

=  100000 

#5-76 

LSSSTA 

=  000002 

#5-76 

LSSSVC 

=  000362 

#5-76 

LSSTAD 

=  000020 

#5-76 

1  SSTHI 

=  000100 

#5-76 

LS$TH2 

=  000200 

#5-76 

LS$TH3 

=  000400 

#5-76 

LSSXMT 

=  040000 

#5-76 

5-76 
5-76 

5-76 
5-76 


5-76 


5-76 
5-76 

5-76 


5-76 


5-76 


5-76 
5-76 


5-76 


5-76 
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5-76 


5-76 


5-76 
5-76 


5-76 


5-76 
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CIZEIN  -  CIRCUIT  ZERO  COUNTERS 
MACRO  CALLS  AND  LOCAL  DATA 


000010 
0^0000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000360 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
010000 
020000 
040000 
100000 
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LF$VR2  =  10 
LFSMLT  =  40000 
LFSSEG  =  100000 
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CONTROLLER  COUNTERS  AS  WELL  AS  ALL 
OF  THE  TRIBUTARY  COUNTERS. 
CONNECTED  TO  VERSION  2.0  NCR 
MULTIPLE  ADJACENCY  FLAG 
SEGMENTED  RESPONSE  IN  PROGRESS 


PARSE  FLAG  DEFINITIONS  (LSPFG) 


LPSUNT 
LPSTRB 
LPtMUX 
LPSMPT 
LPSWDV 
LPSWCN 
LPJUUN 
LPSUTR 
LPSWLD 


1 

2 

4 

10 

20 

40 

100 

200 


UNIT  NUMBER  FOUND 

TRIBUTARY  NUMBER  FOUND 

DEVICE  IS  MUX 

LINE  IS  MULTIPOINT 

WILD  CARD  DEVICE  NAME  FOUND 

WILD  CARD  CONTROLLER  NUMBER  FOUND 

WILD  CARD  UNIT  NUMBER  FOUND 

WILD  CARD  TRIBUTARY  NUMBER  FOUND 


=  LP$WDVILP$WCNILP$WUN!LP$WTR  ;  WILD  CARD  FIELD  MASK 


FLAGS  WORD  BIT  DEFINITIONS  (LSFLG) 


LSSNTL: 
LSSSTA^ 
LSSCOS: 
LSSOWN^ 
LSSTAD^ 
LSSACT^ 
LSSDEA^ 
LCSNTL: 
LCSOWN^ 
LSSDDT^ 
LS$DLT: 
LSSPLT^ 
LSSBBT 
LSSNHT 
LSSXMT^ 
LSSSER 


:1 

:2 

:4 

:10 

:20 

:40 

:100 

:200 

=400 
=1000 

:2000 

=4000 
=  10000 
=20000 
=40000 
=  100000 


NTL  SET  FUNCTION 

SET  STATE 

SET  COST 

SET  OWNER 

SET  TRIBUTARY  ADDRESS 

SET  MULTIPOINT  ACTIVE 

SET  MULTIPOINT  DEAD 

NTL  CLEAR  FUNCTION 

CLEAR  OWNER 

SET  DEAD  TIMER 

SET  DELAY  TIMER 

SET  POLL  TIMER 

SET  BABBLE  TIMER 

SET  NORMAL  TIMER 

SET  TRANSMIT  TIMER 

SET  SERVICE  [ENABLE/DISABLE] 


FLAGS  WORD  BIT  DEFINITIONS  (LSFLD 

LS$BSA=1  ;  SET  ACTIVE  BASE 

LS$BSD=2  ;  SET  DYING  BASE 

LS$BSI=4  ;  SET  INACTIVE  BASE 

LS$INA=10  ;  SET  ACTIVE  INCREMENT 

LS$IND=20  ;  SET  DYING  INCREMENT 

LS$INI=40  ;  SET  INACTIVE  INCREMENT 

LS$TH1=100  ;  SET  DEAD  THRESHOLD 

LS$TH2=200  ;  SET  DYING  THRESHOLD 

LS$TH3=400  ;  SET  INACTIVE  THRESHOLD 

LS$MXB=1000  ;  SET  MAXIMUM  BLOCKS 

LS$HTM=10000  ;  SET  HELLO  TIMER 

LS$MDT=20000  ;  SET  MODEM  TEST 

LS$LOO=40000  ;  SET  CONTROLLER  LOOPBACK 

LS$NOR=100000  ;  SET  CONTROLLER  NORMAL 
.IF  DF  R$$PRO  ;  PRO/DECNET 

LOOPBACK  TYPE  WORD  BIT  DEFINITIONS  (L$LTY) 
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Table  of  contents 

MACRO  CALLS  AND  LOCAL  DEFINITIONS 

CONTEXT  AREA  DEFINITIONS 

BIT  DEFINITIONS 

DISPATCH  TABLE  ENTRY 

DATB?  -  DA  COUNTER  TABLES 

DACOU  -  READ  AND/OR  ZERO  DA  COUNTERS 


s- 

49 

fS- 

60 

/- 

h,> 

H- 

6S 

9- 

84 

10- 

99 
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DACOU     CREATED  BY  MACRO  ON  29-JUN-85  AT  12:21 
SYMBOL  CROSS  REFERENCE 


K  B 

PAGE  3 

CREf   OA.OO 


SYMBOL  VALUE 


LSSYL 

L$TNM 

LSTPT 

LSTRB 

L$TS2 

L$TYP 

LiUNT 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OUNR 

L.UNT 

M$$MGE 

N$$VCT 

RtSPRO 

R$$RTR 

R$$11M 

R$$115 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

S$$8AS 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

T.DR 

T.ER 

T.FL 

T.LEN 

r.LN 

T.OFFS 

T.RA 

T.RC 


000122 

000052 

000050 

0000^0 

000070 

000063 

000003 

000015 

000012 

177776 

000002 

OOOOOA 

000003 

000006 

000010 

000000 

000016 

=  000022 

000022 

000020 

OOOOU 

000021 

000013 

=  000000 

=  ****** 

=  ****** 

=  ****** 

=  000000 

=    ****** 

=  000200 
=  000100 
=  000004 
=  OOOOAO 
=  000020 
=  000010 
=  000001 
=  000002 
=  000040 

=    ****** 

000001 
000000 
000004 
000002 
000003 
000002 
000024 
000004 

=  000070 
000022 

=  000020 
000006 
000010 


REFERENCES 

#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 

5-56 

10-122 

8-70 

8-70 

10-131 

8-70 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 

8-70 
#5-57 
#5-57 
#5-57 
#5-57 
#5-57 
#5-56 
#5-56 
#5-56 
#5-56 
#5-56 
#5-56 
#5-56 
#5-56 


10-124 
10-125 


5-56 
10-124 


10-128 
10-140 


10-131 


5-56 


nAcnii 
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138 
139 
HO 
HI 
H2 
K3 
U4 
145 
U6 
U7 
148 
U9 
150 
151 
152 
153 
154 
155 

156  000312 

157  000312 
158 

159  000314 

160  000314 

161  000316 

162  000320 

163  000324 

164  000330 

165  000334 

166  000336 

167  000342 

168  000346 

169  000350 

170  000354 

171  000360 

172  000362 
173 

174  000366 

175  000374 

176  000376 

177  000400 

178  000404 

179  000410 

180  000412 

181  000416 

182  000424 
183 

184 
185 
186 
187 

1 88 

189  000426 

190  000430 

191  000436 

192  000440 

193  000442 

194  000450 


.SBTTL  DCPCOU  -  READ  AND/OR  ZERO  DDCMP  COUNTEnS 

♦♦-DCPCOU-READ  AND/OR  ZERO  DDCMP  COUNTERS 

THIS  ROUTINE  RETURNS  THE  LINE  AND  STATION  COUNTERS 
FOR  A  DDCMP  LINE. 

INPUTS: 

R3  =   ADDRESS  Of  NEXT  FREE  BYTE  IN  BUFFER 
R4  =  ADDRESS  OF  THE  CONTEXT  AREA 

OUTPUTS: 

R3  =  ADDRESS  OF  NEXT  FREE  BYTE  IN  BUFFER 

REGISTERS: 

R4  IS  PRESERVED 


005027 


000261 
006005 


103501 

016746  177442 

016746  177646 

006105 

012705  000000' 

012746  000012' 

012700  000000 

000010  000064 


DCPLIN:: 


CLR 


(PC)  + 


DCPCIR:: 


032764 
001014 
103005 
005067 
005067 
000406 
012705 
012766 
005300 


005002 
132764 
001406 
005302 
132764 
001401 


177400 
177604 

000004' 
000214'  000002 


3$: 


SEC 

ROR 

R5 

SUSTKS 

30$ 

SAVMAP 

CALL 

FNDDCP 

BCS 

25$ 

MOV 

DCPLNO,- 

■(SP) 

MOV 

DCPLN1,- 

■(SP) 

ROL 

R5 

MOV 

#DCPCIO 

R5 

MOV 

#DCPCI1 

-(SP) 

SAVRG 

<R0> 

MOV 

#0,R0 

BIT 

#LF$VR2 

L$FLG(R4) 

BNE 

5$ 

BCC 

3$ 

CLR 

DCPLNO 

CLR 

DCPLN1 

BR 

5$ 

MOV 

#DCPLNO 

R5 

MOV 

#DCPLN1 

2(SP) 

DEC 

RO 

ENTER  WITH  CARRY  CLEAR 


INDICATE  CIRCUIT  COUNTERS 
SAVE  LINE/CIRCUIT  BIT 

ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

FIND  THE  LINE  TABLES 

IF  CS,  RETURN  WITHOUT  COUNTERS 

SAVE  CONTENTS  OF  TABLES  AFTER 
LINE  INFO 

PICK  UP  ENTITY  TYPE 

ASSUME  V2.0  LINE  COUNTERS 

SAVE  DDCMP  LINE  TABLE  ADDRESS 
CLEAR  WITH  MOV  TO  AVOID  PROBLEMS 

WITH  BCC  BELOW 
CONNECTED  TO  VERSION  2.0  NCP  ? 
IF  NE,  WANT  BOTH  SETS  OF  COUNTERS 
IF  CC,  V3.0  LINE  COUNTERS 
ELSE  MARK  TABLES  DONE 
AFTER  CIRCUIT  INFO 
JOIN  COMMON  CODE 
V3.0  LINE  LINE  COUNTERS  ONLY 

SEfPOINT  TO  POINT  ADJUSTMENT 


SET  UP  R2  SO  THAT  THE  PROPER  COUNTERS  ARE  RETURNED: 
0  =  POINT-TO-POINT 
-1  =  MULTIPOINT  CONTROLLER  COUNTERS 
+1  =  MULTIPOINT  TRIB  COUNTERS 


000010  000041 
000002  000041 


5$: 


CLR 

R2 

BITS 

#LP$MPT 

L$PFG(R4) 

BEQ 

10$ 

DEC 

R2 

BITS 

#LP$TRB 

L$PFG{R4) 

BEQ 

10$ 

ASSUME  RETURN  ALL  COUNTERS  (PT  TO  PT) 

IS  THIS  A  MULTIPOINT  LINE  ? 

IF  EQ,  NO  -  RETURN  ALL 

ASSUME  ONLY  RETURN  CONTROLLER  COUNTERS 

WAS  A  TRIBUTARY  SPECIFIED  ? 

IF  EQ,  NO 
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66 
67 
68 
69 
70 
71 
72 
73 
74 
75 

76  000000 

77  000000 
78 

79 
80 
81 
82 
83 
84 
85 
86 
87 


89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 


.SBTTL  DEALUN  -  DEASSIGN  TEMPORARY  LUN 

♦*-DEALUN-DEASSIGN  THE  TEMPORARY  LUN 

THIS  ROUTINE  IS  CALLED  TO  CLEAR  THE  UCB  POINTER  FOR  THE 
TEMPORARY  MULTI-PURPORSE  LUN  "STMLUN",  IN  THE  TASK  HEADER. 
THIS  IS  NECESSARY  TO  REASSIGN  THE  LUN  IF  IT  HAD  PREVIOUSLY 
BEEN  ASSIGNED  TO  A  DEVICE  WHICH  WAS  ATTACHED. 


DEALUN:; 


SWSTKS 
,IF 


10$ 
NDF,1$$AS 


ENTER  SYSTEM  STATE 


.IF   DF,R$$MPL 


SAVMAP 
MOV 
MOV 
CLR 
RE SWAP 


.IFF 


000004  017700  OOOOOOG 
000010  005060  OOOOOOC 


MOV 
CLR 


aSAHDB,aKSAR6 

aSAHPT.RO 

<H.LUN+<4*<$TMLUN- 


;  DF  R$$MPL 

SHE ADR, RO      ;; 
<H.LUN+<4*<$TMLUN- 


1»>(r65 


SAVE  CURRENT  KISAR6  MAPPING 
MAP  TO  MY  EXTERNAL  HEADER 
POINT  TO  THE  HEADER 
;;  CLEAR  THE  LUT  UCB  POINTER 
RESTORE  PREVIOUS  KISAR6 


GET  OUR  HEADER  ADDRESS 
1»>(R0)  ;;  CLEAR  THE  LUT  UCB  POINTER 


RJK01 


.ENDC  ;  DF  R$$MPL 


000014 


10$: 


000001 


.IFF 

SAVMAP 

MOV 

MAP 

CLR 

RESMAP 

.ENDC 

RETURN 

.END 


.CRTSK.RO 

A.HA(RO) 

<40000tH.LUT+2*-<4 


SAVE  CURRENT  MAPPING 
ATL  ENTRY  FOR  CURRENT  TASK 
MAP  TO  HEADER  FOR  TASK 
♦  <$TMLUN-1»>  ;;  CLEAR  THE  LUT  PUD  POINTER 


RETURN  TO  USER  STATE  AND  TO  CALLER 
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000406 
000410 
0004  u 


010504 
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DLCCOU  -  READ  AND  ZERO  DLC  PRO  MACRO  V05.03b  Saturday  29-Jun-85  12:22 
SPRCCO-  Read  and  zero  DLC  CIRCUIT  counters 

183 
184 
185 

186  000344  022701  100350 

187  000350  001416 

188  000352  022701  100344 

189  000356  001413 

190  000360  022701  100362 

191  000364  001410 

192  000366  012766  177747  OOOOOOG 

193  000374 
194 
195 
196 
197 
198 
199 
200 
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;  Error  passed 

back  from  process 

&0$:    CMP 

*CE.ILN,R1 

BEQ 

65$ 

CMP 

#CE.UN5,R1 

BEQ 

65$ 

CMP 

#CE.AB0,R1 

BEQ 

65$ 

MOV 

#ME.OPE,R$R0(SP) 

RETC 

RO 

•  Return  LDB  to 

system 

65$:    MOV 

R5,fi4 

CALL 

SLDBRT 

70$:    RETURN 

Illegal  station  number  ? 

If  EQ,  success  -  no  information 

Unsupported  operation  ? 

If  EQ,  success  -  no  information 

Aborted  by  DDM  (UNA  line  counters  )? 

If  EQ,  success  -  no  information 

Else  operation  failed 

Set  user  carry 


Copy  CCB  address 

Return  buffer  ;  RJK01 

Back  to  user  state  and  return 


ocsn  AMn  7CDn  ni  r  pun  MifRn  unSd^h  "Satiirriav  ?9-,lun-85 


It  11 

12:2 


77     Paae  9 


DLCCOU 


CREATED  BY     MACRO     ON  29-JUN-85  AT   12:22 


SYMBOL  CROSS  REFERENCE 

SYMBOL     VALUE  REFERENCES 


K  12 

PAGE   5 

CREf       04.00 


Z.FLG 

000010 

#5-55 

Z.LEN 

=  000016 

#5-55 

Z.LLN 

000006 

#5-55 

Z.MAP 

000020 

#5-55 

9-236 

Z.NAM 

OOOOOA 

#5-55 

Z.PCB 

000012 

#5-55 

Z.SCH 

000007 

#5-55 

SHEADR 

r  K*t*« t 

GX 

8-193 

9-2Z9 

SPRCCO 

000004 

RG 

#8-94 

SPRLCO 

000002 

RG 

#8-92 

rDCATCr\    QV        MATDn        OM     9Q-I1IW-R^     AT     1  ?  !  ?P 


PAfiF    6 


L  12 


K  13 

DLMCOU  -  READ/AND  OR  ZERO  DLM  C  MACRO  V05.03b  Saturday  29-Jun-85  12:22 
FNDDLM  -  flND  THE  DLM  LINE  TABLE  fOR  A  CIRCUIT 
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18A  000216     000241 

185  000220 

186 

187  000001 


40$: 
50$: 


CLC 
RETURN 

.END 


SUCCESS 


L  13 

Dcsn/»Mn   no   7CDn   ni  M   r   Miron   UO";   fl'^h   lafurriav   ?9-.lijn-85    12:22 
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DLXQIO  -  ISSUE  I/O  TO  DLX 
MACRO  CALLS  AND  LOCAL  DATA 

55 

56 

57 

58 

59 

60 

61 

b2 

65 

6^ 

65 

66  000000 

67 

68 


K  U 

MACRO  V05.0?b  Saturday  29-Jun-85  12:23  Page  5 

.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 

MACRO  LIBRARY  CALLS 

.MCALL  SAVRG,RESRG,C1CCX$ 

.MCALL  ALUN$S,US1G$S,0I0W$S,QI0$S,6LUN$S 

LOCAL  DATA 

.IF  NDF  M$$ACP 

lOSB:    .BLKW   2 

.ENDC   ;NDF  M$$ACP 


I/O  STATUS  BLOCK  FOR  DLX  010 


tM  vn  I  n 


MAfOn     \lCi^     (T?h     CafiirHaw     ?0- 


L  K 

iin-8S    1?.?^       Panp    A 


DLXQIO  CREATED  BY     MACRO     ON  29-JUN-85   AT   T?:23 

SYMBOL   CROSS  REFERENCE 


K  15 

PAGE   ? 

CREf       OA.OO 


SYMBOL     VALUE 


REFERENCES 


LILCT 

00022A 

#6-75 

.$LEN 

000264 

#6-75 

L$LMB 

00023A 

#6-75 

.$LTM 

000250 

#6-75 

.$MRT 

000253 

#6-75 

LfMSG 
LSMTYP 

000056 

#6-75 

000075 

#6-75 

LtMUN 

000252 

#6-75 

L$MXB 

000133 

#6-75 

L$MXR 

000253 

#6-75 

L$MXW 

000252 

#6-75 

L$NAM 

000000 

#6-75 

L$NLEN 

=  000020 

#6-75 

LtNMT 

000116 

#6-75 

L$NT1 

000256 

#6-75 

LSNTL 

000134 

#6-75 

L$NUM 

000240 

#6-75 

LSNUML 

000236 

#6-75 

LtNXT 

000044 

#6-75 

LSOPT 

000062 

#6-75 

L$OWN 

000102 

#6-75 

L$PAR 

000072 

#6-75 

L$PDV 

000055 

#6-75 

LtPFG 

000041 

#6-75 

LSPLT 

000112 

#6-75 

LtPRO 

000075 

#6-75 

LIPVC 

000004 

#6-75 

L$RET 

000256 

#6-75 

LSSCN 

000020 

#6-75 

LlSCR 

000166 

#6-75 

L$SER 

000230 

#6-75 

LISLEN 

000074 

#6-75 

LSSLT 

000042 

#6-75 

L$SNM 

000046 

#6-75 

LtSTA 

000100 

#6-75 

L$TAD 

000103 

#6-75 

L$THT 

000130 

#6-75 

L$TH2 

000131 

#6-75 

L$TH3 

000132 

#6-75 

L$TNM 

000052 

#6-75 

LSTPT 

000050 

#6-75 

LSTRB 

000040 

#6-75 

L$TYP 

000065 

#6-75 

L$UNT 

000003 

#6-75 

L$XCH 

000232 

#6-75 

L$XHT 

000120 

#6-75 

M$$ACP 

-  ♦♦*♦** 

4-1 

R$$PRO 

-  *♦♦**♦ 

6-75 

R$$RTR 

-  ♦*♦*♦♦ 

8-132 

S$$BA5 

-  **♦♦♦♦ 

8~1 32 

SCBDSG 

r  *«♦»•»   G> 

8-178 

$DSW 

=  ....*.  GX 

8-158 

•8-182 


6-75 


6-75 


8-119 


9-205 


4-2 
6-75 


■64 


-116 


L  15 


n 


DLXAST  -  ISSUE 

1/0  TO  DLX  AND  W 

MACRO  V05.03b 

Saturday 

DLXQIO  -  ISSUE 

I/O  REQUEST  TO  NX 

H8 
K9 

10$: 

QIQW$S 

150 

151 
152 
15?  000056 

.IFF 

10$: 

QIO$S 

154 

155 
156 
157  000116 

.IFTF 

103010 

BCC 

158  000120 

026727 

OOOOOOG 

OOOOOOG 

CMP 

159  000126 

001C25 

BNE 

160  000130 

WSIG$S 

161  000136 

000747 

BR 

162  OOOUO 

20$: 

163 

.IFT 

164 

165 

MOVB 

166 

167 

168 

.IFF 

169 

170  OOOUO 

CALL 

171  00CK4 

116701 

OOOOOOG 

Move 

172 

173 

.ENDC 

174 

175  000150 

003014 

Bcr 

176  000152 

012700 

000014- 

MOV 

177  000156 

005002 

CLR 

178  000160 

CALL 

179  000164 

012701 

000001 • 

MOV 

180  000170 

160100 

sue 

181  000172 

110041 

M0V8 

182  0001 7^ 

010164 

000056 

MOV 

183  000200 

000261 

SEC 

184  000202 

40$: 

RETURN 

K  16 

12:23 
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R0,#$TMLUN,#$TMEFN,,#I0SB,,<R3,R2,R1>  ;  ISSUE  I/O 
;NDF  M$$ACP 

R0,#$TMLUN,,,R5,#DLXAST,<R3,R2,R1>  ;  ISSUE  I/O 
;NDF  M$$ACP 


20$ 

$DSW,*IE.UPN 

40$ 

10$ 

;NDF  M$$ACP 

lOSB.RI 


FORK 
STATUS, R1 

;NDF  M$$ACP 

40$ 

#DLXERR,R0 

R2 

$CBDSG 

#DLXTXT,R1 

RI.RO 

R0,-(R1) 

R1,L$MSG(R4) 


IF  CC,  DIRECTIVE  SUCCEEDED 
ELSE  WAS  IT  A  RESOURCE  ERROR 
IF  NE,  NO  -  REAL  ERROR 
ELSE,  WAIT  AROUND  A  WHILE 
AND  TRY  IT  AGAIN 


GET  STATUS  RETURN 


FORK  AND  WAIT  FOR  010  COMPLETION 
GET  THE  STATUS  RETURN 


IF  GT,  SUCCESS 

POINT  TO  ASCII  ERROR  CODE  BUFFER 

ENABLE  ZERO  SUPRESSION 

CONVERT  IT  TO  SIGNED  DECIMAL 

POINT  TO  ERROR  TEXT 

CALC  STRING  LENGTH 

SET  STRING  LENGTH 

SET  ERROR  MESSAGE  ADDRESS 

ELSE,  NO 


CIRECP  -  ^;-<CUIT  READ 
Symbol  table 


L  1 
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MPSMLP 
MPSMPB 
MPtMRO 
MPtMRP 
MPtMRT 
MPtMRV 
MPtMSB 
MPtMVE 
MPSMVI 
UPtMVR 
MPtMWN 
MPSMXB 
NPSMXC 
MPSMXR 
MPSMXW 
MPtNAA 
MPSNAC 
MPSNAP 
UPSNCT 
wPtNFT 

f  :nli 

MPSNNA 

MPSNOD 

MPSNRA 

MPSNRB 

MPSNSA 

MPtNTl 

WPtNUM 

•IPtNVE 

MP$NXN= 

«P$nAC 

MPSUAN 

WPSOCO 

MPSOHO 

MPSONA 

MPSONR 

MPSOQL 

«P$OTI 

NPSOTY 

«t>$ouS 

fi1P$0VE 

UPSOWN 

MPSPAR 

UPSPAS 

MPSPCN 

M"$PCO 

niP$p-T 

»1P$PDT 
IPSPHA 
»1P$Pi-Y 
MPIPL I 
«1P$PLN 
•IPSPLO 
|V1P$P*IC 
MPSPN^ 
MPSPP ; 
WP$PRC 


006535 

002171 

001605 

006322 

002155 

006320 

000170 

000K5 

001634 

001751 

002154 

002172 

000466 

001650 

002145 

006335 

C31150 

006526 

000240 

002114 

000765 

000764 

000500 

006554 

000214 

001617 

002141 

001642 

001274 

001476 

000632 

000620 

000776 

000214 

000764 

002114 

001453 

000777 

001022 

000777 

001110 

004  '4 

000036 

000513 

002152 

000024 

000144 

0021U 
0001^0 
0000^2 
000025 
002140 
C00012 
004374 
002 '26 

0044" 

002 '30 


MPSPSS 
MPSPST 
MPSRET 
MPSRFA 
MPSRMX 
MPSRPA 
MPtRPR 
MPSRRT 
HPIRST 
MPSRSV 
HPSRSZ 
MPSRTI 
MPSRTM 
MPSRVE 
MPSRVT 
MPSSAC 
MPSSAD 
MPSSCA 
NPSSCO 
MPSSCT 
MPSSDU 
HPSSDV 
MPSSEH 
MPSSER 
NPSSET 
MPSSGZ 
MPSSID 
MP$SIN 
MPSSLI 
MPSSLO 
MPSSHX 
MPSSND 
MPSSNP 
MPSSNU 
MPSSOB 
MPSSPA 
MPSSPR 
MPSSPS 
HPSSTA 
MPSSTI 
MPSSTT 
MPSSTY 
MPSSUB 
liPISUR 
MPISUS 
MPSSVR 
MPtSWI 
MPSSVP 
MPSTFL 
MPtTHi 
MP$TH2 
I*IP$TH3 
MP$TLN 
MPITLO 
MPSTPA 
NPSTRI 
MPSTST 


001763 

001762 

001631 

001323 

002201 

004574 

001606 

002213 

002212 

001754 

001756 

001616 

001611 

001604 

000156 

000514 

000543 

000310 

000144 

002176 

000203 

000160 

004401 

000144 

000000 

001644 

000176 

000310 

000156 

000171 

002202 

000500 

006332 

000542 

000524 

000157 

000556 

000515 

000000 

002140 

002201 

000175 

000001 

(^00156 

000512 

000165 

002260 

002424 

000156 

002206 

002205 

002202 

000202 

000172 

004575 

002164 

000144 


MPSTYP 

MPSUCS 

MPSUSR 

MPSVEC 

MPSVER 

MPSUDF 

MPSUMX 

HPSXHT 

MPSXPF 

HPSXPL 

MPSXPT 

MPSXXX 

MP$5ST 

HSSACT 

MS$ADU 

MSSALO 

MSSASE 

MSSATR 

HSSAUT 

MSSCLE 

MSSDED 

MSSDIE 

MSSDUM 

MSSFAI 

MSSGLO 

HSJHOL 

MSSINA 

MSSLOA 

MSSLOO 

MSSOFF 

MS  SON 

MSSPRO 

HSSREA 

MSSREF 

MSSRES 

MSSRST 

MSJRSX 

MS$R7 

MSSSER 

MSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 

MSSTER 

MStTOP 

MSSTRI 

MSSUNR 

MSSVMS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MT$AR4 

MTSASC 

MTSBIL 

MTSBYS 

MTSCI 


002130 
004407 
001750 
004410 
004406 
002165 
002177 
002166 
000242 
000244 
0002^0 

004406 
000001 
000010 
000007 
000006 
000011 
000000 
000003 
000004 
0000C3 
000004 
000013 
000000 
000002 
000002 
000003 
000002 
000001 
000000 
000006 
000004 
000001 
000005 
000001 
000002 
000005 
000002 
000002 
000007 
000000 
000012 
000001 
000005 
000005 
000005 
000004 
177600 
000002 
000003 
000001 
000003 
000100 
000001 
000011 
000007 


MTSCLE 

MTSCOD 

MTSCON 

MTSDMC 

MTSETH 

HT$HEX 

MTSLPB 

MTSHAX 

MTSHUL 

MTSNLE 

MTSNON 

MT$NR4 

MT$NTY 

MTIOCT 

MTSPHA 

HTSPOl 

MT$QP2 

MTSROU 

HT$R04 

MTSSEC 

MTSSGD 

MTSSYS 

MTSTER 

MTSTRJ 

HTSTYP 

MTSUSD 

HT$X25 

MUSING 

HUSOUT 

HUSPER 

MVSIII 

HVSIV 

MXSACT 

MXSCIR 

HXICLN 

MXSCNH 

MXSCON 

MXSDAC 

HXSDTE 

MXSFIL 

MXSLGC 

NXSLIN 

MXSLON 

MXSNMS 

HXSNOD 

MX $08 J 

MX SOWN 

MXSPAR 

MXSPAS 

MXSRAC 

MXSRID 

MXSRPS 

MXSSID 

MXSSNK 

MXSTYP 

HXSUID 

M$$CRB= 


000077 
000200 
000001 
000004 
000006 
000040 
000005 
000037 

.:oioo 

000017 
000001 
000005 
000060 
000060 
000002 
000000 
000010 
000000 
000004 
000000 
000020 
000002 
000001 
000002 
007777 
000000 
000003 
000001 
000C02 
000000 
000000 
000001 
000020 
000020 
000020 
000006 
000006 
000020 
000020 
000034 
000777 
000020 
000006 
000454 
000006 
000006 
000040 
000036 
000010 
000047 
000047 
000047 
000040 
000577 
000077 
000020 
000124 


M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

NH.CLN 

NM.INI 

NH.OPR 

NM.VR2 

NM.VR5 

NXTCIR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$HLL= 

N$$HOV= 

N$$NCT= 

N$$PEH= 

P$$P45= 

P$$URD= 

Q$$OPT= 

R$$DER= 

R$$K11=: 

R$$SND= 

R$$11M= 

Sf$ANH 

SFSDNM 

SF.ACT=: 

SF.ENA= 

SF.LPB= 

SF.MFL^ 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OUNR 

T$$KHG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

ZF.COU= 

ZF.DDM= 

ZF.D1A= 

ZF.DLC= 

ZF.DVP= 

ZF.INI= 

ZF.KMX= 

ZF.LLC= 

ZF.LMC= 


000000 
000000 
000000 
000000 
000000 
005400 
002400 
003000 
002401 
002402 

000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000000 
000000 
000010 
000000 
000001 
000000 
000000 
000001 
000002 
000200 
000100 
000004 
000040 
000020 
000010 
000001 
000002 
000040 
000000 
007600 
000001 
000000 
000004 
000002 
000003 
000000 
000000 
001000 
000000 
001000 
000001 
004000 
000002 
100000 
040000 
000020 
000004 
000100 
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CIREGT  -  READ  CIRCUIT  STATUS 
CIREST  -  Read  Line  status 


193 

194  000200 

195  000204 

196  000210 

197  000212 

198  000216 

199  000220 

200  000224 

201  000226 

202  000232 

203  000234 

204  000240 

205  000242 

206  000246 

207  000254 

208  000256 

209  000260 

210  000266 

211  000270 

212  000274 

213  000276 

214  000300 
215 

216 
217 

218  000302 

219  000306 

220  000312 

221  0C0314 

222  000322 

223  000324 

224  000330 

225  000336 

226  000340 

227  000342 

228  000346 

229  000352 

230  000356 

231  000360 

232  000364 

233  000366 

234  000370 
235 

236 
237 

238  000374 

239  000400 

240  000402 

241  000410 
242 

243 
244 

245  000412 

246  000420 

247  000422 

248  000430 

249  000432 


012700     000007 


060201 
116102 
002024 
120227 
001426 


000005- 
177777 


103003 

000420 
012702 
126127 
001405 
005002 
126127 
001405 
004567 
000001 
000201 
110223 


016400 
105760 
001004 
032760 
000405 
016400 
032760 
001416 
010400 
062700 
116401 

103406 
004567 
000620 
000100 


103515 
126127 
001111 


032764 
001077 
132761 
001024 
017701 
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?5$:    MOV  #7,R0 

CALL  $MUL 

ADD  R2,R1 

MOVB  SU8TeL(R1),R2 

BGE  45$ 

CHPB  R2,*-l 

BEQ  50$ 

CALL  FNDPLD 

BCC  40$ 

CALL  SNACJR 

BR  50$ 

40$:    MOV  #MS$fAI,R2 

CMPB  P$LST(R1),#PS$fAI 

BEQ  45$ 

CLR  R2 

CMP8  P$LST(R1),#PS$UP 

BEQ  50$ 

45$:    JSR  R5,SETPAR 

.WORD  MP$SUB 

.WORD  MT$C0DI1 

MOVB  R2,(R3)+ 


000013 
000000  000014 


000000  000012 
OOOOOCG 


000042 
000014 

001000  000000 

000050 

00000^.  000000 


000072 
000054 


OOOOOOG 


SET  TABLE  WIDTH  (NUMBER  OF  SUB-STATES) 

POINT  TO  STATE  ROW  IN  TABLE 

POINT  TO  SUB-STATE  ENTRY 

GET  THE  RETURN  SUB-STATE 

IF  GE,  RETURN  IT 

ELSE,  NO  SUB-STATE  TO  RETURN  ? 

IF  EQ,  VES  -  SKIP  OVER  PARAMETER 

FIND  PLD  FOR  THE  LINE 

IF  CC,  GOT  IT 

ELSE,  MIGHT  BE  SNA  CIRCUIT 

MERGE 

ASSUME  SUB-STATE  ^  FAILED 

IS  SUB-STATE  FAILED? 

BR  IF  YES 

ASSUME  SUB-STATE  =  STARTING 

ELSE,  IS  THERE  A  NODE  OUT  THERE  ? 

IF  EQ,  YES  -  NO  SUB-STATE 

RETURN  SUB-STATE  PARAMETER  TYPE 

ONE  CODED  BYTE 

SET  SUB-STATE  IN  MESSAGE 


RETURN  THE  L00P8ACK  NAME  IF  THERE  IS  ONE 


50$:    MOV  L$SLT(R4),R0 

TSTB  L.NSTA(RO) 

BNE  55$ 

BIT  #LF.LPB,L.FLG(RO) 

BR  60$ 

55$:    MOV  L$TPT(R4),R0 

BIT  *SF.LPB,S.FLG(RO) 

60$:    BEQ  65$ 

MCV  R4,fi0 

ADD  #L$SCR,R0 

MOVB  L$CHN(R4),R1 

CALL  MAPCHN 

BCS  65$ 

JSR  R5,SETPAR 

.WORD  MP$LOO 

.WORD  MT$ASC 

CALL  SETNAM 


GET  THE  SLT  ADDRESS 

MULTIPOINT  MASTER  ? 

IF  NE,  YES 

IS  THERE  A  LOOPBACK  NAME  ? 

POINT  TO  THE  STATION  FLAGS 

CHECK  FOR  LOOPBACK  NAME 

IF  EQ,  NONE 

POINT  TO  SCRATCH  BUFFER  FOR  NAME 

SET  CHANNEL  NUMBER 

MAP  THE  CHANNEL  TO  A  NAME 

IF  CS,  NO  NAME  FOUND 

RETURN  I  OOP  NAME  PARAMETER  TYPE 

ASCII  IMAGE  FIELD 

SET  A  NAME  IN  THE  BUFFER 


RETURN  ADJACENT  NODE  ADDRESS  AND  NAME  IF  ONE  EXISTS 


651: 


000000     000012 

000020  000064 
000200  000001 
OOOOOOG 


CALL 
BCS 
CMPB 
BNE 


FNDPLD 

P$LST(R1),#PS$UP 
95$ 


FIND  PHYSICAL  LINK  DATA  BASE 

IF  CS,  LINE  NOT  OWNED  BY  TRANSPORT 

ELSE,  IS  THE  LINK  UP  ? 

IF  NE,  NO  -  SKIP  ADJACENT  NODE  PARAMETERS 


Get  adjacent  node:  Non  Ethernet  circuit,  router 


BIT  #LF$END,L$FLG(R4) 

BNE  75$ 

BIT8  *PT$BR0,P$TYP(R1) 

BNE  67$ 

MOV  aDECPT,R1 


else,  is  this  an  end  node  7 

if  NE,  yes 

is  circuit  a  broadcast  channel 

if  NE,  yes 

point  to  DECnet  homeblock 


RJK05 
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CIREST 

-  READ  CIRCUIT 

STATUS 

MACRO  V05.03b 

Thursday 

25-JUI-85  15:3 

5  Page  13 

-5 

Symbol 

table 

MUtINC 

000001 

NSDLA 

000020 

PF$EIP= 

000002 

P$NRNI 

000040 

S$$WRG= 

000000 

MUSOUT 

000002 

N$DLY 

000014 

PF$ENB= 

000001 

PSOCCB 

000050 

S$$YSZ= 

007600 

MUSPER 

V  \j  \j  \j  yj  s^ 

000000 

NSELEN 

000054 

PF$FA1= 

004000 

P$PFQ 

000006 

S.COST 

000001 

MVSIII 

000000 

NSENC 

000042 

PF$FM1= 

000100 

P$PKSZ 

9899^^ 

S.FLG 

000000 

MVtIV 

000001 

NSERRC 

000022 

PF$FH2= 

000200 

PSRMXI 

000016 

S.LEN 

000004 

MXSACT 

000020 

NtfLG 

000005 

PF$0FF= 

000000 

P$RI«IX2 

000020 

S.NHST 

000002 

nxiciR 

000020 

NSFNC 

000006 

PF$RM1= 

000020 

PSRPRI 

000042 

S.OWNR 

000003 

MXSCLN 

000020 

NSGENQ 

000052 

PF$RH2= 

000040 

PSRTIM 

59995? 

TEMP 

000050R 

MXtCNM 

000006 

N$GTM 

000015 

PF$RVR= 

000010 

PSSTAI 

000022 

T$$KMG= 

000000 

MXICON 

\j  yj  \j  \j  \j  \j 

000006 

NtHCI 

000052 

PF$STA= 

000004 

P$STA2 

000023 

T$$MIN= 

000000 

HXtDAC 

000020 

N$HC2 

000056 

PF$SVC= 

040000 

PSTIM 

000010 

VF$RCV= 

100000 

MXSDTE 

000020 

NSHIGH 

000033 

PF$UP  = 

000004 

PSTSCT 

9999?^ 

VF$XMT= 

040000 

HXSFIL 

00003^ 

NSLLT 

000026 

PR$BED= 

000200 

P$TSIZ 

000024 

V$FLG 

000000 

MX$LGC 

000777 

NJLLTH 

000024 

PR$BEU= 

000100 

P$TYP 

000001 

V$LEN 

000022 

MXSLIN 

000020 

NSLVC 

000036 

PR$BRD= 

000040 

P$$P45= 

000000 

VSRCV 

00C002 

MXSLON 

000006 

NSLVI 

000002 

PR$BRU= 

000020 

P$$URD= 

000000 

VSXMT 

000012 

MXSNMS 

00045A 

N$LV2 

000010 

PR$DWN= 

000002 

P.CHAN= 

000000 

V$$CTR= 

001000 

MXSNOD 

000006 

NSMBXO 

000050 

PR$LCC= 

000010 

P.STSC= 

000004 

X$$DBT= 

000000 

MXSOBJ 

000006 

NSMHCI 

000036 

PR$M0P= 

000004 

Q$$OPT= 

999912 

ZF.COU= 

001000 

nxsouN 

OOOOAO 

N$HHC2 

000044 

PRIUP  = 

000001 

RF.CTL= 

000003 

ZF.DDM= 

000001 

nXSPAR 

000036 

NSPLD 

000016 

PS]CIR= 

****♦♦  GX 

RF.LD1= 

000040 

ZF.DIA= 

004000 

MXSPAS 

000010 

NSPLLT 

000030 

PS$CHR= 

000016 

RF.LD2= 

000100 

ZF.DLC= 

000002 

nXSRAC 

0000^7 

NSPRI 

000076 

PS$FAI= 

000014 

RF.TIM= 

177400 

ZF.DVP^ 

100000 

HXSRID 

0OOOA7 

NSR0A1 

000022 

PS$NTI= 

000006 

RF.TP10= 

000400 

ZF.1NI= 

040000 

MXSRPS 

000047 

N$R0A2 

000030 

PS$0FF= 

000000 

RF.WFC= 

000200 

ZF.KMX= 

000020 

MXSSID 

000040 

NSRTMX 

000014 

ps$srR= 

000002 

RF.WTD= 

000020 

ZF.LLC= 

000004 

HXSSNK 

000377 

N$RTM1 

000014 

PS$UP  = 

000012 

RF.UTM= 

000030 

ZF.LMC= 

000100 

MXSTYP 

000077 

N$RTM2 

000015 

PS$VER= 

000010 

RF.WTS=: 

000010 

ZF.MAN= 

020000 

MXSUID 

000020 

N$RT1 

000000 

PS$UT  = 

000004 

R$R1   = 

******  GX 

ZF.MFL= 

000010 

M$$CRB= 

000124 

N$RT2 

000006 

PT$BR0= 

000200 

R$R2  = 

******  GX 

ZF.MTH= 

000400 

M$$CRX= 

000000 

N$SLA 

000016 

PT$DRT= 

000100 

R$$DER= 

000000 

ZF.MUX= 

9959^5 

M$$FCS= 

000000 

NSSNOD 

000012 

PT$END= 

000004 

R$$K11= 

000001 

ZF.PSE= 

002000 

M$$MGE= 

000000 

NSTCTL 

000112 

Pr$LV1= 

000002 

R$$SND= 

000000 

ZF.SL]= 

010000 

M$$NET= 

000000 

N$TIM 

000004 

PT$LV2= 

000001 

R$$11M= 

000000 

ZF.TIM= 

000200 

H$$OVR= 

000000 

N$TLC 

000100 

PT$PH3= 

000010 

SETNAM 

001330R 

ZF.X3P= 

000000 

NF$BLK= 

000100 

NSTNC 

000114 

PT$XAR= 

000020 

SETPAR= 

******  GX 

ZS.ASM= 

100000 

NF$DMO= 

000010 

N$TRC 

000106 

PUTNOD 

001146R 

SFSANM 

000001 

ZS.BSY= 

140000 

NF$HOU= 

000040 

NSTTCB 

000110 

PU.SCP= 

000002 

SFSDNM 

000002 

Z.AVL 

000014 

NF$RST= 

000002 

N$VCB 

000C10 

PX$BLK= 

000040 

SF.ACT= 

000200 

Z.DAT 

000016 

NF$SCN= 

000020 

NSVER 

000066 

PX$DLH= 

000200 

SF.ENA= 

000100 

Z.DSP 

000000 

NF$SHU= 

000004 

NSXLEN 

000124 

PX$SVC= 

000100 

SF.LPB= 

000004 

Z.FLG 

000010 

NF$TIM= 

000200 

N$$ACC= 

000001 

P$CHN 

000004 

SF.|V|FL= 

000040 

Z.LEN  = 

000016 

NM.CLN 

003400 

N$$BUF= 

000001 

P$CNT 

000005 

SF.PAC= 

000020 

Z.LLN 

000006 

NM.INI 

002400 

N$$LDV= 

000001 

P$CTR 

000034 

SF.REA= 

000010 

Z.HAP 

000020 

NM.OPR 

003000 

N$$MCP= 

000001 

PSDRCT 

000015 

SF.SER= 

000001 

Z.NAM 

000004 

NH.VR2 

002401 

N$$HLL= 

000001 

PSDRTR 

000036 

SF.SVC= 

000002 

Z.PCB 

000012 

NM.VR3 

002402 

N$$MOV= 

000010 

P$FLG 

000012 

SF.UNL= 

000040 

Z.SCH 

000007 

N$ACQ 

000000 

N$$NCT= 

00000' 

PSFWD 

000030 

SNACIR 

001470R 

$CEACC= 

******  GX 

NSACTL 

000032 

N$$PEM= 

000001 

PSICCB 

000046 

SNAPT  = 

******  GX 

$HEADR= 

******  GX 

NSADJl 

000072 

PDVID  = 

*»***»  GX 

PSIPL 

000014 

SPACE  = 

000040 

$MUL  = 

******  GX 

N$ADJ2 

000074 

PDVTA  : 

»»»»*»  GX 

P$LCD 

000002 

STATBL 

OOOOOOR 

$$$R  = 

990019 

NSCACH 

000062 

PF$BLK= 

■  020000 

PSLEN 

000052 

SUBTBL 

555595R 

$$$SYS= 

004374 

NtCIR 

000034 

PF$CLC= 

■  010000 

PSLST 

000000 

S$PUNX= 

000006 

$$$SYX= 

000000 

NtCRC 

000120 

PF$DLM= 

-  100000 

.  ABS. 

177776    000 
001630    001 

(RW.I.GBL.ABS.OVR) 
(RW,I,LCL,REL,C0N) 
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000001 
000002 
000004 


OOOCIO 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000360 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 


FLAGS  UORD  BIT  DEFINITIONS  (L$FLG) 


LFSREA  =  1 
LFSZER  =  2 
LFSSKP  =  4 


LF$VR2  =  10 
LFSMLT  =  40000 
LFSSEG  =  100000 

PARSE  FLAG  DEFINITIONS  (L$PFG) 


READ  COUNTERS  OPERATION 
ZERO  COUNTERS  OPERATION 
SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 
THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 
FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 
CONTROLLER  COUNTERS  AS  WELL  AS  ALL 
OF  THE  TRIBUTARY  COUNTERS. 
CONNECTED  TO  VERSION  2.0  NCP 
MULTIPLE  ADJACENCY  FLAG 
SEGMENTED  RESPONSE  IN  PROGRESS 


LPSUNT  =  1 

LPSTRB  =  2 

LPSMUX  =  4 

LPSMPT  =  10 

LPSUDV  =  20 

LPSWCN  =  40 

LPtWUN  =  100 

LPSUTR  =  200 

LPSWLD  =  LP$WDVILP$UCN!LP$UUNILP$WTR  ;  WILD  CARD  FIELD  MASK 


UNIT  NUMBER  FOUND 

TRIBUTARY  NUMBER  FOUND 

DEVICE  IS  MUX 

LINE  IS  MULTIPOINT 

WILD  CARD  DEVICE  NAME  FOUND 

WILD  CARD  CONTROLLER  NUMBER  FOUND 

WILD  CARD  UNIT  NUMBER  FOUND 

WILD  CARD  TRIBUTARY  NUMBER  FOUND 


FLAGS  UORD  BIT  DEFINITIONS  (L$FLG) 


LSSNTL: 
LSSSTA^ 
LSSCOS 
LSSOWN: 
LSSTAD^ 
LSSACT 
LSSDEA 
LCSNTL 
LCSOWN 
LSSDDT 
LSSDLT 
LSSPLT 
LSSBBT 
LSSNMT 
LSSXMT 
LSSSER 


:1 

■2 

=4 

=  10 

=20 

=40 

=100 

=200 

=400 

=  1000 

=2000 

=4000 

=10000 

=20000 

=40000 

=  100000 


NTL  SET  FUNCTION 

SET  STATE 

SET  CUST 

SET  OWNER 

SET  TRIBUTARY  ADDRESS 

SET  MULTIPOINT  ACTIVE 

SET  MULTIPOINT  DEAD 

NTL  CLEAR  FUNCTION 

CLEAR  OWNER 

SET  DEAD  TIMER 

SET  DELAY  TIMER 

SET  POLL  TIMER 

SET  BABBLE  TIMER 

SET  NORMAL  TIMER 

SET  TRANSMIT  TIMER 

SET  SERVICE  [ENABLE/DISABLE] 


FLAGS  WORD  BIT  DEFINITIONS  (L$FL1) 


LS$BSA=1 

LS$BSD^2 

LS$BSI=4 

LS$INA=10 

LS$IND=20 

LS$INI=40 

LS$TH1=100 

LS$TH2=200 

LS$TH3=400 

LS$HX8=1000 


SET  ACTIVE  BASE 
SET  DYING  BASE 
SET  INACTIVE  BASE 
SET  ACTIVE  INCREMENT 
SET  DYING  INCREMENT 
SET  INACTIVE  INCREMENT 
SET  DEAD  THRESHOLD 
SET  DYING  THRESHOLD 
SET  INACTIVE  THRESHOLD 
SET  MAXIMUM  BLOCKS 
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CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

LSACT 

0001 OA 

#5-76 

.$BBT 

0001  U 

#5-76 

L$BLK 

000262 

#5-76 

.SBSA 

000122 

#5-76 

_$BSD 

000123 

#5-76 

.$BSI 

0001 2A 

#5-76 

.$BUF 

000060 

#5-76 

L$CHN 

000054 

#5-76 

L$CMB 

00023A 

#5-76 

.$COS 

000101 

#5-76 

LSCTB 

000053 

#5-76 

LICTL 

000002 

#5-76 

LSCUS 

000260 

#5-76 

LSDDM 

000000 

#5-76 

L$DDT 

000106 

#5-76 

LSDEA 

000105 

#5-76 

L$DLT 

000110 

#5-76 

L$DTE 

0002A0 

#5-76 

LSDTEL 

000236 

#5-76 

LSDTEP 

000250 

#5-76 

L$FLG 

000064 

#5-76 

LSFLX 

000076 

#5-76 

L$FL1 

000066 

#5-76 

LtFL2 

000070 

#5-76 

LSHBT 

000254 

#5-76 

L$HTM 

000226 

#5-76 

L$INA 

000125 

#5-76 

LSIND 

000126 

#5-76 

LSINI 

000127 

#5-76 

LSLCT 

000224 

#5-76 

LtLEN 

000264 

#5-76 

L$LMB 

000234 

#5-76 

L$LTM 

000230 

#5-76 

L$MRT 

000253 

#5-76 

L$MSG 

000056 

#5-76 

LSHTYP 

000075 

#5-76 

L$MUN 

000252 

#5-76 

LSMXB 

000133 

#5-76 

L$MXR 

000253 

#5-76 

LSMXW 

000252 

#5-76 

L$NAM 

000000 

#5-76 

LSNLEN 

=  000020 

#5-76 

LSNMT 

000116 

#5-76 

L$NTI 

000256 

#5-76 

LSNTL 

000134 

#5-76 

LSNUM 

000240 

#5-76 

LSNUML 

000236 

#5-76 

L$NXT 

000044 

#5-76 

LSOPT 

000062 

#5-76 

L$OWN 

000102 

#5-76 

L$PAR 

000072 

#5-76 

L$PDV 

000055 

#5-76 

8-227 


5-76 


5-76 


*6-101 


*6-110 


»7-189 


♦8-234 
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000001 
000002 
OOOOOA 
000010 
000020 
000040 
000100 
000200 
001000 
100000 

000400 
000002 
000020 
000040 
000200 
010000 

020000 

020053 
000362 
001004 


LSSINT  =  0 
LSSEXT  =  1 


INTERNAL  L00P8ACK 
EXTERNAL  LOOPBACK 


MODEM  TEST  TYPE  WORD  BIT  DEFINITIONS  (L$MDT) 


LSSLCL  =  0 
LSJREM  =  1 
LSSOFF  =  2 
.ENDC   ;  DF  R$$PRO 


LOCAL  MODEM  TEST 
REMOTE  MODEM  TEST 
SHUT  OFF  MODEM  TESTS 


FLags  word  bit  definitions  for  X.25  circuits  and  lines  (L$FLX) 


Circuits: 

LSSCHN 
LSSCMB 
LSSCUS 
LSSDTE 
LSSMXR 
LSSMXW 
LSSNUM 
LSSRET 
LSSBLK 
LPSNXC 

Lines: 

LSSHBT 
LSSLMB 
LSSMRT 
LSSMWN 
LSSNTI 
LSSPRO 

Common: 

LSSLCT 

Groupings: 

LSSPVC 
LSSSVC 
LSSDLM 


1 

2 

4 

10 

20 

40 

100 

200 

1000 

100000 

400 
LSSCMB 
LSSMXR 
LSSMXW 
LSSRET 
10000 

20000 


Set  PVC  channel 

Set  maximum  data 

Set  circuit  usage 

Set  DTE 

Set  maximum  recalls 

Set  maximum  window 

Set  DLM  number 

Set  recall  timer 

Set  blocking 

Circuit  is  a  new  X.25  circuit 

Set  holdback  timer 

Set  max  block 

Set  max  retransmits 

Set  max  window 

Set  retransmit  timer 

Set  line  protocol 

Set  counter  timer 


LSSCHN I LSSCMB ! LSSD  fE I LSSMXW! LSSLC  T 
LSSCMB ILSSMXR I LSSMXWl LSSNUM! LSSRET 
LSSBLKILSSCUS 
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2 
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5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 


.TITLE  DACOU  -  READ/AND  OR  ZERO  DA  COUNTERS 

.IDENT  /V05.00/ 

.ENABL  LC 

.NLIST  CND 

COPYRIGHT  (C)  1982,  1983,  1985  BY 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 
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DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

4.00  07-NOV-83 
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SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


T.RCV 

000036 

T.RCVB 

000042 

T.SP 

000020 

T.TIME 

000001 

T.TIMR 

000000 

T.TLZ 

000046 

T.VCT 

177760 

T.XC 

000016 

T.XMT 

000026 

T.XMTB 

000032 

T.XW 

000012 

XPTCOU 

=   ****** 

$$BM 

=  000000 

$$REG 

=  000000 

$$WID 

=  060000 

GX 


REFERENCES 

#5-56 
#5-56 
#5-56 
#5-56 
#5-56 
#5-56 
#5-56 
#5-56 
#5-56 
#5-56 
#5-56 

10-137 
#9-88 

9-96 
#9-88 

9-96 
#9-88 

9-96 


9-95 
9-93 


9-88 
5-56 

9-96 
9-94 


9-88 
9-88 
9-88 
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#9-93 
#9-93 
#9-93 


9-93 

#9-94 

9-94 

#9-95 

9-93 

#9-94 

9-94 

#9-95 

9-93 

#9-94 

9-94 

#9-95 

9-95  #9-96 
9-95  #9-96 
9-95     #9-96 
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195  0O0A52 

122222 

CMPB 

196  000^54 

10$: 

SAVRG 

197  000456 

001002 

BNE 

198  OOOA60 

005202 

INC 

199  000A62 

060002 

ADD 

200  000A6A 

016600 

000002 

15$: 

MOV 

201  000A70 

CALL 

202  000474 

RESRG 

203  000500 

005766 

000010G 

TST 

204  000504 

100404 

BMI 

205  000506 

032764 

000010  000064 

BIT 

206  000514 

001402 

BEQ 

207  000516 

16$: 

CALL 

208  000522 

012605 

17$: 

MOV 

209  000524 

CALL 

210  000530 

012667 

177460 

20$: 

MOV 

211  000534 

012667 

177244 

MOV 

212  000540 

25$: 

RESMAP 

213  000544 

010366 

OOOOOOG 

MOV 

214  uOO550 

30$: 

RETURN 

215 

216 

000001 

.END 

,(R2)  + 


,R0 


(R2)+, 

<fi2> 

15$ 

R2 

R0,R2 

2(SP).- 

FMTCOU 

<R2,R0> 

10+R$R5(SP) 

16$ 

#LF$VR2,L$FLG(R4) 

17$ 

XPTCOU 

(SP)+,R5 

FMTCOU 

CSP)+,DCPLN1 

(SP)+,DCPLNO 

R3,R$R3(SP) 


ELSE,  RETURN  STATION  COUNTERS  ONLY 

SAVE  LINE-TYPE  INDICATOR 

IF  NE,  MULTIPOINT  -  USE  CURRENT  R2 

ELSE,  USE  STATION  TABLE  TIME  AS  TIME 

MAKE  POINT  TO  POINT  ADJUSTMENT 

GET  DDCMP  LINE  TABLE  ADDRESS 

GET  THE  TIME  COUNTER 

RESTORE  BASE  COUNTER  INDICATOR 

IS  ENTITY  =  CIRCUIT  ? 

IF  MI,  YES  -  INCLUDE  XPT  COUNTERS 

ELSE  IS  IT  NICE  V2.0  LINE  ? 

NO  -  SKIP  TRANSPORT  COUNTERS 

GET  CIRCUIT  COUNTERS 

PICK  UP  SECOND  TABLE  ADDRESS 

FORMAT  THE  COUNTERS 

RESTORE  TABLES  TO 

THEIR  VIRGIN  STATE 
RESTORE  PREVIOUS  MAPPING 
RETURN  R3  IN  SAVED  R3 
BACK  TO  USER  STATE  AND  RETURN 


nrprnii  -  rfad/and  or  7FRn  dcp  r 
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Symbol  table 


A$$CHK= 

A$SCPS= 

A$$PR1= 

A$$TRP= 

C$$C<P= 

C$$ORE= 

C$$RSH= 

DEALUN 

D$$BUG= 

Dt$lSK= 

D$$L11= 

D$SYNC= 

D$$YNM= 

E$$XPR= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

HEADR 


000000 
000000 
000000 
000000 
000000 
000^00 
17756A 
OOOOOORG 
1775K 
000000 
000001 
000000 
000000 
000000 
000001 
000000 
000000 
000000 
000000 
I  ,*»♦♦»  ex 


H.CSP 

H.CUIC 

H.DSU 

H.DUIC 

H.EFLM 

H.EFSV 

H.FCS 

H.FORT 

H.FPSA 

H.FPSL= 

H.FPVA 

H.GARD 

H.HDLN 

H.IPC 

H.IPS 

H.ISP 

H.LUN 

H.NLUN 

H.NML 

H.ODVA 


000000 
000010 
0000A6 
000012 
OOOOOA 
0000^0 
000050 
000052 
000042 
000062 
000034 
000072 
000002 
000016 
OOOOU 
000020 
000076 
000074 
000061 
000022 


H.ODVL 

H.OVLY 

H.PFVA 

H.RCVA 

H.RRVA 

H.SPRI 

H.TKVA 

H.TKVL 

H.VEXT 

H.UND 

H.X25 

I$$RAR= 

1$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

L$$ASG= 

L$$DRV= 


000024 
000054 
000032 
000036 
000062 
000060 
000026 
000030 
000056 
000044 
000064 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
000000 
000000 


L$$P11= 
L$$11R= 
H$$CRB= 
M$$CRX= 
M$$FCS= 
H$$MGE= 
M$$NET= 
M$$0VR= 
N$$ACC= 
N$$8UF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$M0V= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$WRD= 
Q$$OPT= 
R$$DER= 


000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000000 
000000 
000010 
000000 


.  ABS.  000102 
000016 
Errors  detected: 


000 
001 
0 


(RU,I,GBL,AeS,0VR) 
(RW,I,LCL,REL,C0N) 


R$$K11= 
R$$SND= 
R$$11M= 
S$$WRG= 
S$$YSZ= 
T$$KMG= 
T$$MIN= 

V$$CTR=: 

U.BATT 

U.BFPD 

W.BHVR 

U.BLGH 

W.BLPD 

W.BLVR 

W.BNPD 

W.80FF 

W.BPCB 

W.BSIZ 

X$$D8T= 

$TMLUN= 


000001 
000000 
000000 
000000 
007600 
000000 
000000 
001000 
000006 
000014 
000004 
000020 
000016 
000002 
000015 
000012 
000000 
000010 
000000 
******  Gx 


♦*♦  Assembler   statistics 

Work      file     reads:  0 

Work      file  writes:  0 

Size  of  work    file:  9385  Words      (   38  Pages) 

Size  of  core  pool:  14440  Words     (   55  Pages) 

Operating     system:  RSX-11M/PLUS 

SY?^EALUN!v2![13^?n4]DEALUN/CR/-SP=SY:[1,nRSXMCM.SML/ML,[130,110]NEFL]B/ML,[130,10]RSXMCM/PA:1,[135,10]DEALUN 
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202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 
217 

218  0OOA16 

219  000416 

220  000422 
221 

222 
223 

224  000424 

225  000430 

226  000434 

227  000436 

228  000444 

229  000450 

230  000454 

231  000460 

232  000464 

233  000470 

234  000472 

235  000474 

236  000476 

237  000504 

238  000510 
239 

240 
241 
242 
243 
244 
245 
246 
247 
248 
24'5 
250 

251  000516 

252  000520 

253  000526 

254  000530 

255  000534 

256  000542 

257  000544 

258  000550 


010405 


012700 
103503 
016764 
010466 
116501 
110164 
116500 
067700 

ciiono 

00c  3^ 
r"(jj.4 

'>i'^.:oo 

1 16064 


.SBTTL  RQSTCO  -  Request  counters  from  DLC  process 
♦♦*  RQSTCO  -  Request  counters  from  DLC  process 


Inputs: 
R4 


Context  pointer 


Output 


Carry  clear; 

R4     =  Context  pointer 

R5  =  CCa  adcJress 

Carry  set: 

RO     =  Return  code 


RQSTCO: 


SWSTKS 
MOV 


50$ 
R4,R5 


;;  Enter  system  state 

;;  Save  address  of  context  area 


Allocate  an  LD8  and  set  up  line  parameters 


177761 

OOOOOOG  000004 

OOOOOOG 

000054 

000006 

000055 

OOOOOOG 


000020  000030 

000042 

000003  000007 


CALL 

MOV 

BCS 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

ADD 

MOV 

ASL 

ADD 

MOV 

MOV 

MOVB 


aLDBGT 

*ME.RES,RO 

40$ 

CURCTX,C.NSP(R4) 

R4,R$R5(SP) 

L$CHN(R5),R1 

R1,C.L1N(R4) 

L$PDV(R5),R0 

aPDVTA.RO 

(RO),RO 

R1 

Rl.fiO 

Z.MAP(RO) 

L$SLT(R5) 

L.DLC(RO) 


C.CNT2(R4) 

RO 

C.STA(R4) 


R5 


RJK01 


.IF  DF  R$$MPL 

TST8  aNCPU 

BEQ  5$ 

MOV  L.KRBA(RO),RO 

MOV  K.URM(R0),C.URM(R4) 

.ENDC  ;  DF  R$$MPL 

Set  function  and  subfunction,  entity,  return  task  name  and  queue  LDB 


Try  to  allocate  an  LDB      ;  RJK01 

Assume  resource  allocation  failure 

If  CS,  allocation  failure 

Save  context  address  in  CCB 

Save  CCB  address  in  saved  user 

Pick  up  channel  number 

Stuff  it  into  CCB 

Pick  up  LLC  process  PDV  index 

Point  to  address  of  LLC  PDV  ; 

Point  to  LLC  PDV 

Make  channel  *  a  word  index 

Add  it  in 

Get  SLN  and  trib  for  DLC 

Get  our  SLT  address 

Get  PDV  index  of  DLC  for  line 


multi-processor  configuration 
if  EQ,  no 

else  point  to  KRB, 
initialize  Unibus  run  mask 


005046 
032765 
001402 
052716 
032765 
001402 
052716 
012700 


000001  000064 

001024 

000002  000064 

002024 
177773 


5$:     CLR  -(SP) 

BIT  #LF$REA,L$FLG(R5) 

BEQ  10$ 

BIS  #FC.MAN!FS.REA,(SP) 

10$:    BIT  #LF$ZER,L$FLG(R5) 

BEQ  20$ 

BIS  #fc.man:fs.zer,(sp) 

20$:    MOV  *ME.MPR,R0 


No  function  code  yet 

Requested  read  ? 

If  EQ,  no 

Else  set  up  function,  subfunction 

Requested  zero  ? 

If  EQ,  no 

Else  set  up  function,  subfunction 

Should  never  happen,  but  ... 
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CREF   OA.OO 


MACRO  NAME 

BIAS 

CALL 

CALLR 

CCBOFS 

CIRCXS 

HANDFS 

MAP 

PDVDFS 

RESMAP 

RESRG 

RETC 

RETURN 

SAVMAP 

SAVRG 

SLTDFt 

SOB 

SWSTKS 


REFERENCES 

#5-52 

8-97 

9-22^ 

9-27A 
#5-51 
#5-52 
#5-51 
#5-51 
#5-'.1 
#5-52 
#5-52 
#5-51 

8-199 
#5-52 
#5-52 
#5-51 

10-303 

8-102 


8-141 
8-100 
11-330 

5-54 

6-62 

5-56 

8-134 

5-55 

8-169 

8-164 

8-193 

9-280 

8-120 

8-143 

5-57 

n-347 

9-219 


8-145 
8-102 
11-349 


10-299 


8-148 
8-114 


10-301 
8-128 


8-163 


8-167 


8-179 


8-198 


9-219 


10-305 

8-168 

10-304 

9-279 

10-306 

11-361 

10-297 

8-162 

10-298 

11-351 


11-325 


11-360 


11-344 


11-358 
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ASCIMG= 

000100 

K$tLDC= 

000000 

L$DDM 

S88229 

AttCHK= 

000000 

K$$TPS= 

000074 

L$FLG 

000064 

A$$CPS= 

000000 

LCSEXT 

000000 

L$FLX 

000070 

A$$PRI= 

000000 

LCtINT 

000001 

LfLEN 
L$LTM 

000124 

A$$TRP= 

000000 

LD$LP  = 

000000 

9522^9 

BITO  = 

000001 

LF$END= 

000020 

L$MSG 

000056 

Bin  = 

000002 

LF$MLT= 

040000 

LSHTYP 

000067 

BIT10  = 

002000 

LF$REA= 

000001 

L$NAM 

000000 

BIT11  = 

00^000 

LF$SEG= 

100000 

L$NLEN= 

2229?9 

B1T12  = 

010000 

LF$SIG= 

000040 

L$NOD 

000112 

B1T13  = 

020000 

LF$SKP= 

000004 

L$NXT 

000044 

BITK  = 

040000 

LF$VR2= 

000010 

L$OPT 

000062 

BIT15  = 

100000 

LF$ZER= 

000002 

LSPAR 

222119 

BIT2  = 

OOOOO-i 

LF.ACT= 

100000 

L$PDV 

000055 

B1T3  = 

000010 

LF.BR0= 

000400 

L$PFG 

000041 

B1T4  = 

000020 

LF.BUT= 

000007 

L$PL8 

22211  § 

BIT5  = 

000040 

LF.ENA= 

002000 

LSPRO 

000067 

B1T6  = 

000100 

LF.LPB= 

001000 

L$PVC 

000004 

B1T7  = 

000200 

LF.MDC= 

000100 

L$SCN 

000020 

B1T8  = 

000400 

LF.MFL= 

004000 

L$SCR 

000072 

S1T9  = 

001000 

LF.HTP= 

000020 

LSSLEN 

000066 

B$10 

000003 

LF.PAC= 

000200 

L$SL7 

000042 

B$n 

000004 

LF.RDY= 

040000 

L$SNM 

000046 

B$12 

000005 

LF.REA= 

010000 

L$SYL 

000122 

B$5 

000000 

LF.SER= 

000040 

LSTNM 

02921^ 

B$6 

000001 

LF.TIM= 

000010 

L$TPT 

000050 

B$7 

000002 

LF.UNL= 

020000 

LSTRB 

000040 

Bt7S10 

000006 

LF.X2P= 

000000 

LSTSZ 

000070 

CODMUL= 

000300 

LN.CLO= 

000000 

LSTYP 

000063 

CODSNG= 

000200 

LN.DUM= 

000005 

LSUNT 

22222J 

CS$CKP= 

000000 

LN.L0A= 

000004 

L$$ASG= 

000000 

C$$ORE= 

000400 

LN.L00= 

000003 

L$$DRV= 

000000 

C$$RSH= 

177564 

LN.OAU= 

000003 

L$$P11= 

000001 

DECSIG= 

000020 

LN.OFF= 

000001 

L$$nR= 

000000 

DECUNS= 

000000 

LN.ON  = 

000000 

L.COST 

000015 

DLMCOU 

000006RG 

LN.OOP= 

000004 

L.CTL 

99921? 

DLMTBO 

OOOOOOR 

LN.0PE= 

000001 

L.CVA 

177776 

D$$BUG= 

177514 

LN.REF= 

000002 

L.DDM 

000002 

D$$ISK= 

000000 

LN.SER= 

000002 

L.DDS 

000004 

D$$L11= 

000001 

LN.STA= 

000017 

L.DLC 

000003 

D$$VNC= 

000000 

LN.SUB= 

000360 

L.DLM 

000006 

D$SYNM= 

000000 

LN.TRI= 

000006 

L.DLS 

000010 

E$$XPR= 

000000 

LP$MPT= 

000010 

L.FLG 

000000 

FHTCOU= 

«♦*»«*  GX 

LP$MUX= 

000004 

L.KRBA 

000016 

FNDDLM 

000062R 

LP$TRB= 

000002 

L.LEN  = 

000022 

F$$LVL= 

000001 

LP$UNT= 

000001 

L.MPF 

000022 

G$$TPP= 

COOOOO 

LPSWCN: 

000040 

L.NMST 

000020 

G$$TSS= 

000000 

LP$WDV= 

000020 

L.NSTA 

000014 

G$$TTK= 

000000 

LP$WLD= 

000360 

L . OWNR 

000021 

G$$WRD= 

000000 

LP$WTR= 

000200 

L.UNT 

000013 

HEX 

000040 

LP$WUN= 

000100 

MBSDIS 

000001 

HEXIMG= 

177777 

L$ADJ 

000110 

MBSENA 

000000 

I$$RAR= 

000000 

L$8UF 

000060 

MBSFUL 

02222? 

I$$RDN= 

000000 

L$CHN 

000054 

MBSHIX 

000002 

KISAR6= 

«»♦.♦»  GX 

L$COU 

000114 

MBSONE 

000001 

K$$CNT: 

177546 

LSCTB 

000053 

MBSRXO 

000001 

Kt$CSR= 

177546 

L$CTL 

000002 

MBSTXO 

000000 

MBJZER 
MC$BAB 
MC$BID 
MCSBMC 
MC$BSC 
MC$CAC 
MCSCAP 
MCSCCL 
MCSCDC 
MCSCDP 
MCSCIF 
MCSCLD 
HC$COU 
MCSCTL 
MCSCTR 
MCSCTS 
MCSDOV 
MCSLBR 
MCSLBS 
MCSLDl 
MCSLDO 
MCSLDR 
MCSLDS 
MCSLLB 
MCSLLP 
MCSLLR 
MCSLOO 
MCSLRB 
HCSLRP 
MC$LRR 
HCSLSI 
MCSLST 
MCSLUP 
MCSMAP 
MCSMBL 
MCSMBX 
MCSMBY 
HCSHPX 
MCSNAP 
MCSNBR 
MCSNBS 
MCSNCR 
MCSNCS 
HCSNML 
MCSNHR 
MCSNMS 
MCSNNO 
MCSNNU 
MCSNOP 
MCSNOR 
MCSNPF 
MCSNPR 
MCSNRE 
MCSNRT 
MCSNVR 
MC$P08 
MCSPIl 


000000 
006073 
001765 
001767 
001766 
001442 
001440 
001445 
002045 
001441 
001465 
001464 
100000 
001454 
001452 
001453 
002050 
001750 
001751 
001774 
001775 
001762 
001763 
002021 
002115 
002007 
000001 
002020 
002114 
002006 
002032 
002033 
006072 
010000 
001764 
004420 
001752 
004406 
001604 
001130 
001131 
001154 
001155 
001274 
001142 
001143 
001606 
001605 
001607 
000000 
001616 
001630 
001200 
001166 
001642 
000000 
000001 


MC$RFL 

MCSSBU 

MCSSFL 

HC$SYC 

MCSSYL 

MCSSYR 

MCSSYS 

MCSSYZ 

MCtTBR 

MCSTBS 

MCSTDR 

MCSTIM 

MCSTYP 

MCSUBU 

MC$UFD 

MCSUMR 

MCSUMS 

MCSVAX 

MCSUID 

MCSWIH 

MCSUIL 

MCSUOS 

HC$U16 

l»IC$W32 

MCSXBR 

MCSXBS 

MCSXCJ 

MCSXCR 

HCSXCS 

MCSXDR 

MCSXDS 

MCSXFR 

HCSXFS 

MCSXLJ 

MCSXLR 

MCSXMA 

MCSXHC 

MCSXHS 

MCSXNR 

MCSXRC 

MCSXRR 

MCIXRS 

HC$020 

MD$CI 

MDSCNA 

MDSCOU 

MDSDA 

MD$DL 

MDSDLV 

MDSDHC 

MDSDMF 

MDSDMP 

MDSDMR 

MDSDHV 

MD$DN 

MD$DP 

MDSDPV 


002046 
002051 
002044 
000012 
000036 
000050 
000024 
000000 
001140 
001141 
002053 
000000 
007777 
002052 
002047 
001132 
001133 
000003 
060000 
040000 
020000 
020000 
040000 
060000 
001750 
001751 
000322 
002260 
002261 
001762 
001763 
002272 
002273 
000323 
002330 
000310 
002305 
002304 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 
000014 
000046 
000022 
000050 
000042 
000016 
000000 
000044 
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70 
71 
72 
75 
7A 
75  OOOOOA 


000000 


000000 
000C20 


000000 
000000 
000002 
000003 
000004 

000020 

000040 

000041 

00004? 

000044 

000046 

000050 

000052 

000053 

000054 

000055 

000056 

000060 

000062 

000063 

000064 

000066 

000070 

000072 

000074 

000075 

000075 

000076 

000100 

000101 

000102 

000103 

000104 

000105 

000106 

000110 

000112 

000114 

000116 

000120 


000020 


.S8TTL  CONTEXT  AREA  OFFSET  DEFINITIONS 
CONTEXT  AREA  OFFSET  DEFINITIONS 

CICCXS  LIST 
CONTEXT  AREA  OFFSET  DEFINITIONS 


.ASECT 

.  =  0 

LSNLEN  =  16. 


;  MAXIMUM  NAME  LENGTH 


The  offsets  L$NAM  to  LtPDV  inclusive  must  appear  in  the  same  order 
as  in  the  CIRCXS  and  LOCCXS  macros. 


LSNAM: 
L$DDM: 
L$CTi  : 
L$U' 
L$F   : 

L$SCN 

LSTRB 

LSPFG 

L$SLT 

L$NXT 

L$SNM 

LSTPT 

L$TNM 

L$CT8 

L$CHN 

LSPDV 

L$MSG 

L$BUF 

L$OPT 

LSTYP 

LSFLG 

L$FL1 

L$FL2 

LSPAR 

LtSLEN 

L$PRO: 

LSMTYP 

L$FLX 

L$STA 

LSCOS 

LIOUN 

L$TAD 

L$ACT 

L$DEA 

LSDDT 

LSDLT 

L$PLT 

L$B8T 

LSNMT 

L$XMT 


.8LKW  1  ;  DEVICE  NAME 

.BLKB  1  ;  CONTROLLER  NUMBER 

.8LKB  1  ;  UNIT  NUMBER 

.BLKW  1  ;  3RD  WORD  OF  PVC  NAME 

.  =  0+L$NLEN    ;  SPACE  FOR  EXPANDED  CIRCUIT  NAME 

.BLK8  LSNLEN  ;  CURRENT  NAME  IN  WILDCARD  SCAN 

.BLKB  T  ;  TRIBUTARY  NUMBER 

.BLK8  1  ;  PARSE  FLAGS 

.8LKW  1  ;  Current  SLT/PVC  address 

.BLKW  1  ;  Pointer  to  next  SLT/PVC  address 

.BLKW  1  ;  REMAINING  NUMBER  OF  SYSTEM  LINES 

.8LKW  1  ;  Current  tributary  pointer  (-1  for  PSD 

.BLK8  1  ;  REMAINING  NUMBER  OF  TRIBUTARIES 

.BLKB  1  ;  CURRENT  TRIBUTARY  NUMBER 

.BLKB  1  ;  Channel  number  /  X.25  port  number  and 

.BLK8  1  ;  ...  PDV  assigned 

.BLKW  1  ;  ERROR  MESSAGE  STRING  POINTER 

.BLKW  1  ;  SAVED  BUFFER  POINTER 

.BLKB  1  ;  SAVED  OPTIONS  BYTE 

.BLKB  1  ;  CIRCUIT-ID  FORMAT  TYPE 

.BLKW  1  ;  FLAG  WORD  (FOR  COMMAND) 

.BLKW  1  ;  FLAG  WORD  (FOR  COMMAND) 

.BLKW  1  ;  FLAG  WORD  (FOR  CURRENT  CIRCUIT) 

.BLKW  1  ;  CURRENT  PARAMETER  TYPE 

.BLKB  1  ;  Significant  length  of  circuit  name 

;  Line  protocol 

.BLKB  1  ;  Network  management  circuit  type 

.BLKW  1  ;  Flags  word  for  X.25  circuit  commands 

.BLKB  1  ;  CIRCUIT  STATE 

.BLKB  1  ;  CIRCUIT  COST 

.BLKB  1  ;  CIRCUIT  OWNER  (PDV  INDEX) 

.BLKB  1  ;  TRIBUTARY  ADDRESS 

.BLKB  1  ;  MULTIPOINT  ACTIVE  RATIO 

.BLKB  1  ;  MULTIPOINT  DEAD  RATIO 

.BLKW  1  ;  DMP  DEAD  TIMER 

.BLKW  1  ;  DMP  DELAY  TIMER 

.BLKW  1  ;  DMP  POLL  TIMER 

.BLKW  1  ;  DMP  BABBLE  TIMER 

.BLKW  1  ;  DMP  NORMAL  TIMER 

.BLKW  1  ;  DMP  TRANSMIT  TIMER 
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SYMBOL 

VALUE 

REFERENCES 

tSAVAL 

=   *»»**• 

GX 

8-111 

STMEFN 

=    ****** 

GX 

8-U9 

STMLUN 

=    »*»•*• 

GX 

8-U9 

9-203 

9-206 

ttlARG 

:  000002 

#8-U9 

8-U9 

#.i-U9 

8-U9 
8-U9 

#8-149 

8-U9 

#8-149 

8-149 

8-149 

#8-U9 

8-K9 

i-U9 

8-U9 
8-U9 

8-U9 

8-149 

8-149 

8-149 

8-U9 

8-U9 

#i-U9 

8-K9 

8-149 

8-149 

8-149 

8-149 

8-U9 

8-U9 

8-U9 

8-U9 

#8-U9 

8-149 

8-149 

8-149 

8-149 

8-U9 

8-U9 

8-U9 

8-K9 

8-U9 

8-149 

n  15 
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DLXLUN  -  ASSIGN  A  LUN  TO  NX: 


W^, 


186 
187 
188 
189 
190 
191 
192 
193 
19^ 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20/. 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 


.SBTTL  DLXLUN  -  ASSIGN  A  LUN  TO  NX; 

♦•-DLXLUN-ASSIGN  A  LUN  TO  NX; 

THIS  ROUTINE  IS  CALLED  TO  ASSIGN  STMLUN  TO  NX; 

OUTPUTS; 

IF  CC,  NX:  IS  LOADED  AND  ALUN  SUCEEDED. 
ELSE,  NX:  NOT  PRESENT 

REGISTERS: 

NO  REGISTERS  MODIFIED 


000204 

00020A 

000206 

000212 

000232  103A15 

00023A  06270/,  000166 

0002/.0 

00025/.  10340/. 

000256  10576/.  000003 

000262  100/.01 

00026/.  000261 

000266 

000270 

000001 


DLXLUN: 


10$: 


SAVRG 

<R';> 

CALL 

DEALUN 

ALUNSS 

#$TMLUN,#  'NX 

BCS 

10$ 

ADD 

#L$SCR,R/. 

GLUNSS 

*$TMLUN,R/. 

BCS 

10$ 

TSTS 

3(R4) 

BMI 

10$ 

SEC 

RESRG 

<R/.> 

RETURN 
.END 


SAVE  M 

DEASSIGN  THE  TEMPORARY  LUN 

TRY  TO  ASSIGN  A  LUN  TO  NX: 

IF  CS,  NOT  THERE 

POINT  TO  SCRATCH  BUFFER 

GET  LUN  INFORMATION 

IF  CS,  ASSUME  NO  DLX 

IS  THE  DRIVER  LOADED  ? 

IF  MI,  YES 

ELSE,  NO 

RESTORE  M 


n  16 


D-.„«   1A_1 
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Symbol  table 


Page  8-4 


Zf .MAN:  020000 

ZF.SLI=  010000 

Z.AVL 

000014 

Z.LLN 

000006 

7f.mFl=  000010 

ZF.T1M=  000200 

Z.DAT 

000016 

Z.MAP 

000020 

2F.MTM=  000400 

ZF.x3P=  000000 

Z.DSP 

000000 

Z.NAM 

000004 

ZF.Mux:  000040 

ZS.A5N=  100000 

Z.FLG 

225S]o 

Z.PCB 

000012 

ZF.PSE=  002000 

Z5.BSV=  140000 

Z.LEN 

=  000016 

.  ABS.   -77776 

000 

(RW,1,GBL,ABS,0VR) 

000564 

00^ 

(RW,I,LCL,REL,C0N) 

Errors  detected: 

0 

Z.SCH   000007 
$SA\/R6=  *•*♦*•  GX 
$$$SVS=  004374 
$$$SYX=  000000 


••♦  Assemble'  statistics 


work  t-ie  reads:  225 

Work   t  i  t  e  (*ri  tes  :  150 

S'ze  ot  «ork  file:  29995  Words   (  118  Pages) 

Size  c»  core  pool:  17608  Words  (  6^  Pages) 

Operating  systeii:  RSX-HM/PLUS 

*:-:RECp!vf!r°35?°^4]CIREOP/CR/-SP=3V:[1,nRSXMCM.SML/ML,  [130,1 10]NETLIS/ML,n30,10]RSXMCM/PA:1,C135,10]CIREOP 
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CREATED   B»     MACRO     ON  29-JijN-85    AT    12:18 


PAGE    1 


N     1 


CIREST 
CIREST 


READ  CIRCUIT  STATUS 
Read  line  status 


N  2 

MACRO  V05.03b  Thursday  25-Jul-85  15:55  Page  7-2 


250  000A36 
?51  000AA4 
252  000A52 
233  000454 

254  000460 

255  000462 

256  000466 

257  000472 

258  000500 
259 

260 
261 
262 
263 

264  000502 

265  000506 

266  000514 

267  000522 

268  000526 

269  000532 


016164  000030  000114 
012764  140000  000110 
005001 

103002 

000167  000146 

016401  000112 

016467  000070  177350 

000451 


017701  OOOOOOG 

016164  000054  000114 

066164  000056  000114 

016101  000030 


66$: 


MOV  D$NLN(R1),L$C0U(R4) 

MOV  #140000, LiADJ(R4) 

CLR  R1 

CALL  GETADJ 

BCC  66$ 

JMP  95$ 

MOV  L$N0D(R4),R1 

MOV  L$TSZ(R4),TEMP 

BR  85$ 


get  number  of  channels..     ;**-l 

scan  channel-indexed  adjacencies 

assume  no  node 

get  adjacent  node 

if  CC,  adjacency  is  up 

if  CS,  none 

else  pick  up  node  address 

and  transport  block  size 

stuff  it  in  response 


Get  adjacent  node:  Ethernet  circuit,  routing  node 
Initialij 


270 

000542 

010164 

000110 

271 

000546 

272 

000552 

103430 

273 

274 

275 
276 
277 

000554 

042764 

100000 

000064 

278 

000562 

016401 

000112 

279 

000566 

016467 

000070 

177254 

280 

000574 

281 

000600 

103411 

282 

000602 

052764 

100000 

000064 

283 

000610 

112774 

000003 

000060 

284 

000616 

000402 

285 

286 

287 

288 

000620 

289 

290 
291 
292 

000624 

005701 

293 

000626 

001402 

294 

000630 

295 

296 

000634 

2<i7 

298 

299 

300 

ize  adjacency  scan 


67$:    MOV  aDECPT,R1 

MOV  D$N8RA(R1),L$C0U(R4) 

ADD  D$N8EA(R1),L$C0U(R4) 

MOV  D$NLN(R1),R1 

ASL$  2.R1 

BIAS  R1 

MOV  R1,L$ADJ(R4) 

CALL  GETADJ 

BCS  95$ 


initialize  count:  ;  RJK05 

broadcast  router  adjacencies.  ;**-1 

plus  broadcast  endnode  adjacdicies 

get  number  of  channels.. 

..times  adjacency  size 

skip  channel-indexed  adjacencies 

save  start  address  of  adj  scan 

get  the  first  adjacency 

1  f  CS,  there  ain  t  none  ! 


Get  adjacent  node:  Ethernet  circuit,  routing  node 
Get  next  adjacency 


?'0$:    BIC  #LF$SEG,L$FLG(R4) 

MOV  L$N0D(R4),R1 

MOV  L$TSZ(R4),TEMP 

CALL  GETADJ 

BCS  85$ 

BIS  #LF$SEG,L$FLG(R4) 

MOVB  #MS.PAR,aL$BUF(R4) 

BR  85$ 


assume  last  adjacency  is  sequence 

pick  up  current  node  id 

...and  transport  block  size 

get  next  adjacency 

if  CS,  this  was  the  last 

else  remember  partial  response 

set  return  code  to  partial 

process  node  address 


Get  adjacent  node:  All  circuits,  endnode 


^5$: 


CALL 


GETADE 


Get  adjacent  node  (endnode) 


Build  adjacent  node  and  block  size  parameters 


§5$: 


95$: 


R1 

95$ 

PUTNOD 


TST 
BED 
CALL 

RETURN 


.IF  DF  R$$11S 

.PSECT 

.ENDC 


WAS  THERE  AN  ADJACENT  NODE  ? 

IF  EQ,  THERE  WAS  NONE 

output  node  id  and  block  size 
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N  2 

15:35 


CIREST  -  READ  nnriin  STATUS 
Symbol  table 

Errors  detected:  0 

»♦*  Assembler  statistics 


Work  file  reads:  262 

Work   file  writes:  186 

Si?e  of  work  file:  37859  Words  (  H8  Pages) 

Size  of  core  pool:  17608  Words  (  67  Pages) 

Operating  system:  RSX-11M/PLUS 
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CIRMAP  -  CIRCUIT  CHANGE  MAPPING  MACRO  V05.03b  Saturday  29-Jun-85  12:19 
MACRO  CALLS  AND  LOCAL  DATA 

010000 
020000 
040000 
100000 


Page  5-3 


78 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
001000 
100000 

000400 
000002 
000020 
000040 
000200 
010000 

020000 

020053 
000362 
001004 


LS$HTM= 

10000 

SET  HELLO  TIMER 

L$$MDT= 

20000 

SET  MODEM  TEST 

LS$L00= 

40000 

SET  CONTROLLER  LOOPBACK 

LS$N0R= 

100000 

SET  CONTROLLER  NORMAL 

.IF  DF 

R$$PRO 

;  PRO/DECNET 

•  LOOPBACK  TVPE 

UORD  BIT 

DEFINITIONS  (LSLTY) 

LSSJNT 

=  0 

INTERNAL  LOOPBACK 

LSSEXT 

=  1 

EXTERNAL  LOOPBACK 

;  MODEM  TEST  TYPE  iJORD  BIT  DEFINITIONS  (L$MDT) 

LSSLCL 

=  0 

LOCAL  MODEM  TEST 

LSSREM 

=  1 

REMOTE  MODEM  TEST 

LSSOFF 

=  2 

SHUT  OFF  MODEM  TESTS 

.ENDC 

;  DF  R$$PR0 

;  Flags  word  bit  definitions  for 

X.25  circuits  and  lines  (LSFlX 

;  Circuits: 

LSSCHN 

1 

Set  PVC  channel 

LSSCMB 

2 

Set  maximum  data 

LSSCUS 

4 

Set  circuit  usage 

LSSDTE 

10 

Set  DTE 

LSSMXR 

20 

Set  maximum  recalls 

LSSMXW 

40 

Set  maximum  window 

LSSNUM 

100 

•  Set  DLM  number 

LSSRET 

200 

■  Set  recall  timer 

LSSBLK 

=   1000 

•  Set  blocking 

LPSNXC 

=  100000 

•  Circuit  is  a  new  X.25  circuit 

;  Lines: 

LSSHBT 

400 

•  Set  holdback  timer 

LSSLMB 

=  LSSCMB 

•  Set  max  block 

LSSMRT 

:  LSSMXR 

•  Set  max  retransmits 

LSSMWN 

=  LSSMXW 

•  Set  max  window 

LSSNTl 

=  LSSRET 

•  Set  retransmit  timer 

LSSPRO 

=  10000 

•  Set  line  protocol 

;  Common: 

LSSLCT 

=  20000 

;  Set  counter  timer 

;  Groupings: 

LSSPVC 

=  LSSCHN. 

LSSCMBILSSDTEILSSMXUILSSLCT 

LSSSVC 

=  LSSCMB. 

LSSMXR ILSSMXWI LSSNUM! LSSRET 

LSSDLM 

=  LSSBLK. 

LSSCUS 

.IF  NDF  SSSBAS  8  RSSRTR 


N  4 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


LtPFG 

LIPLT 

LSPRO 

LtPVC 

LSRET 

LtSCN 

LSSCR 

L$SER 

LSSLEN 

LSSLT 

L$SNH 

L$STA 

LSTAD 

LSTHI 

L$TH2 

L$TH3 

LSTNM 

LSTPT 

LSTRB 

LSTYP 

L$UNT 

LIXCH 

LSXHT 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.PlD 

L.UNT 

HESLIN 

ME.CST 

HE.IID 

ME.PNA 

MPSMAC 

MPSMDE 

MPSTRI 

M$$MGE 

N$$VCT 

RBIAS 

RX.NXM 

Ra.OVR 


REFERENCES 


000041 

#5-76 

000112 

#5-76 

000075 

#5-76 

OOOOOA 

#5-76 

000256 

#5-76 

000020 

#5-76 

000166 

#5-76 

000230 

#5-76 

000074 

#5-76 

000042 

#5-76 

000046 

#5-76 

000100 

#5-76 

000103 

#5-76 

000130 

#5-76 

000131 

#5-76 

000132 

#5-76 

000052 

#5-76 

000050 

#5-76 

000040 

#5-76 

000063 

#5-76 

000003 

#5-76 

000232 

#5-76 

000120 

#5-76 

000015 

#5-64 

000012 

#5-64 

177776 

#5-64 

000002 

#5-64 

000004 

#5-64 

000003 

#5-64 

000006 

#5-64 

000010 

#5-64 

000000 

#5-64 

000016 

#5-64 

=  000022 

#5-64 

000022 

#5-64 

000020 

#5-64 

000014 

#5-64 

000021 

#5-64 

000047 

*8-227 

000013 

#5-64 

000001 

6-110 

177765 

6-109 

177767 

7-187 

177752 

6-100 

004420 

7-189 

004421 

8-234 

002164 

6-101 

=  000000 

5-66 

=   *♦♦**♦ 

6-121 

=  000002 

#5-70 

=  000020 

#5-66 

=  000010 

#5-66 

7-172 


6-104 
6-131 

6-102 


6-105 


6-111 


6-127 
8-232 
6-107 


5-66 

6-141 

•6-140 


2:20 

M  5 

PAGE  4 

CREF   04.00 

8-215 

8-217 

6-135 

6-143 

6-116 

7-170     8-213 

6-113 

7-190 

8-235 

6-144 
•7-179 

7-176     7-180 
•8-224 

7-183 

8-221 

8-225 

8-228 

CIRHAP 
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70 

71 

72 

73 

lU 

75 

76 

77 

78 

79 

80 

81 

82 

83 

8^ 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96  000000 

97 

98 

99 

100  OOOO'iO 

101  OOOOuM 

102  000010 

103  000014 

104  000016 

105  000022 

106  000026 

107  000030 

108  000034 

109  000036 

110  000042 
m  000046 
112  000052 
113 

114 
115 

116  000056 

117  000062 

118  000070 
119 

120 
121 
12?  00GC72 

123  0000^4 

124  000100 

125  000102 
126 


.SBTTL  CIZEIN  -  CIRCUIT  ZERO  COUNTERS  INITIALIZE 

'**-CIZEIN-CIRCUIT  "'ERO  COUNTERS  INITIALIZE  ROUTINE 

THIS  ROUTINE  IS  CALLED  TO  INITIALIZE  FOR  THE  CIRCUIT  ZERO  COUNTERS 
OPERATION.  ZERO  COUNTERS  IS  HANDLED  AS  A  SPECIAL  CASE  OF  READ 
COUNTERS. 

INPUTS: 

RO  =  OPTION  (ZERO  OR  READ  AND  ZERO) 

R1  =  ID  ADDRESS  (LINE  FORMAT) 

R2  =  LENGTH  OF  DATA  IN  INPUT  BUFFER  (ZERO) 

R3  =  ADDRESS  OF  INPUT  BUFFER 

R4  =  ADDRESS  OF  CONTEXT  AREA 

OUTPUTS: 

RO  =  RETURN  CODE 

R2  =  LENGTH  OF  DATA  IN  OUTPUT  BUFFER 

R3  =  ADDESS  OF  OUTPUT  BUFFER 

DATA  SAVED  IN  CONTEXT  AREA 

C-BIT  =  CLEAR  IF  SUCCESS,  SET  IF  FAILURE 


REGISTERS: 

R3,  R4, 


CIZEIN:: 


R5  ARE  PRESERVED 


004567 
012705 
122700 
001410 
052705 
122700 
001403 
012700 
000442 
012700 
110064 
010364 
010564 


0127C0 
026427 
002422 


010400 
012705 
005020 


OOOOOOG 

000002 

000000 

000001 
000200 

177777 

000060 
000062 
000060 
000064 


177773 

177776  000264 


CHECK  OPTION  AND  MAKE  IT  LOOK  LIKE  A  READ  COUNTERS  OPERATIONS 


10$: 


JSfi 

MOV 

CMP8 

BEO 

BIS 

CMPB 

BEQ 

MOV 

BR 

MOV 

MOVB 

MOV 

MOV 


R5,$SAVRG 

#LF$ZER,R5 

*MO$ZER,RO 

10$ 

#LF$REA,R5 

#MO$REA,R0 

10$ 

#ME.FUN,RO 

50$ 

#Mn$COU,R0 

R0,L$OPT(R4) 

R3,L$BUF(R4) 

R5,L$FLG(R4) 


CHECK  LENGTH  OF  CONTEXT  AREA 


MOV 
CMP 
BLT 


#ME.MPR,RO 

-2(R4),#L$LEN 

40$ 


ZERO  CONTEXT  AREA 


000026 


30$: 


MOV 
MOV 
CLR 
SOB 


R4,R0 

#<L$Ci.N/2>,R5 
(RO)t 
R5,30$ 


SAVE  R3-R5 

ASSUME  OPERATION  IS  ZERO  COUNTERS 

IS  IT  JUST  A  ZERO  COUNTERS  OPERATION 

IF  E(3,  YES 

ELSE,  ASSUME  IT  IS  A  READ  AND  ZERO  ? 

IS  IT  A  READ  AND  ZERO  ? 

IF  EQ,  YES 

ELSE,  SAY  ILLEGAL  OPTION 

AND  RETURN  WITH  ERROR 

MAKE  ZERO  LOOK  LIKE  A  READ  COUNTERS 

SAVE  OPTION  BYTE 

SAVE  BUFFER  POINTER 

SAVE  OPERATION  INDICATOR 


ASSUME  CONTEXT  AREA  TOO  SMALL 
IS  CONTEXT  AREA  LARGE  ENOUGH  ? 
IF  LT,  NO  -  ERROR 


COPY  CONTEXT  POINTER 

SET  NUMBER  OF  WORDS  TO  CLEAR 

CLEAR  IT 


N 
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MACRO  CALLS  AND  LOCAL  DEFINITIONS 


^9 
50 
51 
52 
53 
5^ 
55 

56  000000 

57  000000 
58 


.SBTTL  MACRO  CALLS  AND  LOCAL  DEFINITIONS 
MACRO  LIBRARY  CALLS 

.MCALL  SAVMAP, MAP, BIAS, RESMAP,SAVRG,RESRG,CALLR,DLCOU$ 
.MCALL  DADF$,SLTDF$,CIRCX$ 


DADF$ 
SLTDFS 


DEFINE  DA  SYMBOLS 
DEFINE  SLT  OFFSETS 


N  7 
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MACRO  CROSS  REFERENCE 


MACRO  NAME 


REFERENCES 


BIAS 

#5-53 

CALL 

10-121 

CALLR 

#5-53 

CIRCXS 

#5-5^ 

SADFS 

#5-54 

BLBMS 

#9-83 

DLCQUS 

#5-53 

MAP 

#5-53 

RESMAP 

#5-53 

RESRG 

#5-53 

RETURN 

10-K2 

SAVMAP 

#5-53 

SAVRG 

#5-53 

SLTDFS 

#5-5A 

SUSTKS 

10-121 

TMPDFS 

#5-56 

.ADDR8 

#5-56 

.AODRW 

#5-56 

.APR 

#5-56 

.BIN 

#5-56 

.CNB 

#5-56 

.CNW 

#5-56 

.CORE 

#5-56 

.GSR 

#5-56 

.CTIM 

#5-56 

.DPRB 

#5-56 

.DPRW 

#5-56 

.DVCHA 

#5-56 

.INT 

#5-56 

.INT1 

#5-56 

.INT2 

#5-56 

.INT3 

#5-56 

.LFLHD 

#5-56 

.LIBR 

#5-56 

.LINKS 

#5-56 

.LSTHD 

#5-56 

.LTAB 

#5-56 

.MPLHD 

#5-56 

.HXPTB 

#5-56 

.PECHA 

#5-56 

.POOL 

#5-56 

.PR  I 

#5-56 

.SCOM 

#5-56 

.SECSR 

#5-56 

.SLNB 

#5-56 

.SLNW 

#5-56 

.STNB 

#5-56 

.STNW 

#5-56 

.TIME 

#5-56 

.UN8 

#5-56 

.UNW 

#5-56 

.VFV 

#5-56 

10-131 
10-136 

6-62 
5-56 
#9-89 
9-88 
10-124 
10-KO 


10-122 

5-57 

5-56 


5-56 


5-56 


5-56 


5-56 


5-56 


n   8 
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10-137 


#9-93 
9-89 


10-139 


#9-94 
9-93 


#9-95 
9-94 


#9-96 
9-95 


#9-97 
9-96 


9-97 


5-56 


rBFATFn  R¥     MAfPn     m  ?9-,iuN-85  AT  12:21 
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Symbol  table 
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A$$CH<= 
At$CPS= 
A$$PR1= 
A$$TRP= 
BITO  = 
BIT1  = 

Bino  = 

BIT11  = 

B1T12  = 

BIT13  = 

BITU  = 

BIT15  = 

B1T2  = 

BIT3  = 

BIT^  = 

BITS  = 

B1T6  = 

BIT7  = 

BITS  = 

BIT9  = 

B$10 

B$11 

B$12 

B$5 

BS6 

B$7 

B$7S10 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DCPCIR 

DCPCIO 

OCPCIl 

DCPLIN 

DCPLNO 

DCPLNl 

DSSF'JG: 

D$$1SIC= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

FMTCOU 

FNDDCP 

F$$LVL 

G$$TPP 

G$$TSS 

G$$TTK 

G$$WRD 

!$$RAR 


000000 

000000 

000000 

000000 

000001 

000002 

002000 

004000 

010000 

020000 

OAOOOO 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

OOOAOO 

001000 

000003 

000004 

000005 

000000 

000001 

000002 

000006 

000000 

000400 

177564 

00031 4RG 

OOOOOOR 

00001 2R 

00031 2RG 

000004R 

00021 4R 

177514 

000000 

000001 

000000 

000000 

000000 


=:  ****** 

=  ****** 

000001 
000000 
000000 
000000 
000000 
000000 


GX 
GX 


.  ASS.  000124 
000552 
Errors  detected: 


000 
001 
0 


I$$RDN= 

KISAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LOSLP  = 

LE.NRH= 

LE.NR0= 

LE.NSH= 

LE.NSO= 

LE.RCO= 

LE.SAE= 

LE.STT= 

LE.XTU= 

LF$END= 

LF$MLT= 

LF$REA= 

LF$SEG= 

LF$SIG= 

LF$SKP= 

LF$VR2= 

LF$ZER= 

LP$MPT= 

LP$HUX= 

LP$TRB= 

LP$UNT= 

LP$UCN= 

LP$UD\/= 

LP$WLD= 

LP$WTR= 

LP$WUN= 

LSADJ 

L$BUF 

LSCHN 

L$COU 

L$CTr 

L$C^ 

L$r  ' 

LSFcJ 

L$FLX 

LILEN 

L$LTM 

L$MSG 

LSMTYP 

L$NAM 

L$NLEN= 

LSNOD 

LSNXT 

L$OPT 


000000 

******  GX 

177546 

177546 

000000 

000074 

000000 

000200 

000001 

000002 

000020 

000040 

000004 

000010 

000100 

000020 

040000 

000001 

100000 

000040 

000004 

000010 

000002 

000010 

000004 

000002 

000001 

000040 

000020 

000360 

000200 

000100 

000110 

000060 

000054 

000114 

000053 

000002 

000000 

000064 

000070 

000124 

000070 

000056 

000067 

000000 

000020 

000112 

000044 

000062 


(RW,1,GBL,ABS,0VR) 
{RW,I,LCL,REL,C0N) 


L$PAR 

L$PDV 

L$PFG 

LSPLB 

LSPRO 

LJPVC 

LSSCN 

L$SCR 

LSSLEN 

LSSLT 

LSSNM 

L$SVL 

L$TNH 

L$TPT 

L$TRB 

LSTSZ 

LJTYP 

L$UNT 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.8ABL 

L.8UFU 

L.CHA 

L.CNTL 

L.CRC 

L.CRS 

L.DISL 

L.DISR 

L.ENA 

L . LNUM 

L.NAST 

L.NCUB 

L.NCUL= 

L.NJP 

L.NLSE 

L.NRSE 

L.PAIC 

L.PAIfi 

L.PLD 

L.PLL 

L.SCFW 

L.STA 

L.ST8L 

L.STRC 

L.STRM 

L.STS 

L.ST2 

L.TBP 


000120 
000055 
000041 
000116 
000067 
000004 
000020 
000072 
000066 
000042 
000046 
000122 
000052 
0C0050 
000040 
000070 
000063 
000003 
000000 
000000 
000001 
000000 
000062 
000052 
000034 
000024 
000030 
000040 
000042 
000044 
000066 
000046 
000065 
000012 
000050 
000010 
000054 
000053 
000017 
000016 
000047 
000012 
000056 
000063 
000070 
000050 
000051 
000002 
000003 
000004 


L.TIMC 

000060 

S.LMA 

2295i6 

L.TJMI 

S.LMOS 

000030 

L.TIMR 

000000 

S.LMRT 

000027 

L.TOR 

000064 

S.LMS 

000025 

L.XSET 

000020 

S.LNK 

000000 

M$SCR8= 

000124 

S.NCUB 

000000 

M$$CRX= 

000000 

S.NCUL= 

000036 

M$$FCS^- 

000000 

S.N<LR 

000040 

M$$MGE= 

000000 

S.NKR 

000037 

M$$NET= 

000000 

S.NKRB 

000052 

M$$0VR= 

000000 

S.NKRU 

000045 

N$$ACC= 

000001 

S.NKSB 

000051 

N$$BUF= 

000001 

S.NKSU 

000046 

N$$LDV= 

000001 

S.NTD 

000024 

N$$MCP= 

000001 

S.PLA 

000010 

N$$MLL= 

000001 

S.PLC 

000022 

N$$M0V= 

000010 

S.PLL 

000006 

N$$NCT= 

000001 

S.PLS 

000011 

N$$PEH= 

000001 

.RCVB 

000072 

P$$P45= 

000000 

c.RCVC 

000056 

P$$URD= 

000000 

S.REPR 

000050 

Q$$0PT= 

000010 

S.REPS 

000047 

R$R3  = 

******  GX 

S.RST 

000036 

R$R5  = 

*»*«**  GX 

S.RTEC 

000042 

R$$DER= 

000000 

S.SELC 

000066 

R$$K11= 

000001 

S.SELT 

000053 

R$$SND= 

000000 

S.STE 

000002 

R$$11M= 

000000 

S.STEC 

000043 

SE.IRS= 

004000 

S.STL6 

000104 

SE.NRS= 

002000 

S.STI.N 

000035 

SE.R8S= 

001000 

S.STPN 

000034 

SE.R8U= 

000400 

S.TIMC 

000054 

SE.RCH= 

000001 

S.TNRP 

000032 

SE.RDC= 

000002 

S.TTEC 

000041 

SE.RRR= 

000004 

S.WFA 

000016 

SE.SBS= 

000200 

S.XMT 

000012 

SE.SBU= 

000100 

S.XMTB 

000076 

SE.SDC= 

000020 

S.XMTC 

000062 

SE.SHC= 

000010 

T$$KMG= 

000000 

SE.SRR= 

OOOO'.O 

T$$MIN= 

000000 

S$$WRG= 

000000 

V$$CTR= 

001000 

S$$YSZ= 

007600 

XPTCOU= 

******  G 

S.ALF 

000044 

X$$DBT= 

000000 

S.BLKC 

000033 

$$BM  = 

010000 

S.COUB 

000044 

$$LCNr= 

000072  G 

S.COUL= 

000040 

$$LLIN= 

000104  G 

S.DLCF 

000102 

$$OFF  = 

000056 

S.FNCP 

000004 

$$REG  = 

000000 

S.HTNA 

000023 

$$TST  = 

000200 

S.LGR 

000031 

$$WID  = 

020000 
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OEALUN  CRCATED  BY  MACRO  ON  29-JUN-85  AT  17:A2 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE  REFERENCES 

DEALUN  000000  RG  *6-76 

HEADR  =  •*♦♦♦«  GX     6-90 

H.LUN  000076  •6-91 

I$$AS  =  *«♦.*.        5-61 

R$$MPL  =  «.♦•*.        6-80 

STMLUN  =  .♦«♦.»   GX  ♦6-91 


M  10 

PAGE  1 

CREF   OA.OO 


6-78 


rDC  ATCh  DW 


MAron   nM  5Q-lllw.Ri;  AT  17-i? 


PAKF  ? 


N  10 


DLCCOU  - 
RQSTCO  - 

259 
260 
261 
262 
263 
26^ 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 


READ 
Reques 

00055A 
000560 
000562 


AND  ZERO 
t  counte 

012664 
00K31 
116464 


DLC  PRO  MACRO  V05.03b  Saturday 
rs  from  DLC  process 


000570 
000574 
000600 
000602 
000610 
000612 
000620 
000624 
000632 
n00640 


000644 
000650 
000662 


005064 
005767 
100404 
032765 
001403 
152764 
017700 
016064 
016064 


000010 
000011 


000022 
177200 

000010 


000002 


000064 
000022 


000002 
OOOOOOG 
OOOOOOG  000034 
000002G  000036 


30$: 
35t: 
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(SP)+,C.FNC(R4) 

40$ 

C.FNC+1(R4),C.RSV(R4) 


MOV 
BEQ 
M0V8 


Alf   NE  CM. LIN  .ERROR 


CLR 

TST 

BMI 

BIT 

BEQ 

BISB 

MOV 

MOV 

MOV 

CALLR 


010066  OOOOOOG 


;  Error  return 

iO$: 

50$: 


MOV 

RETC 

RETURN 


C.FLG1(R4) 

ENTITY 

30$ 

/»Lf$VR2,L$FLG(R5) 

35$ 

#CM.CiR,C.FLG1(R4) 

aTKTCB.RO 

T.NAM(R0),C.ADD(R4) 

T.NAM+2(R0),C.ADD+2(R4) 

aNMCRS 


RO,R$RO(SP) 
RO 


Stuff  function  into  CCB 

If  EQ,  trouble 

Copy  subfunction  code  for  DLC  use 

Value  error 

Set  return  to  AUX,  LINE  entity 

Recoi/er  entity  type 

If  HI,  entity  =  CIRCUIT 

else  are  we  speaking  via  NICE  V2.0  ? 

if  EQ,  no  -  he  really  means  LINE 

Else  make  it  CIRCUIT 

Point  to  our  TCB  ;  RJK01 

Set  up  taskname 

for  AUX 
Queue  CCB,  back  to  user  state;  RJK01 


Pass  error  back  in  user  RO 

Set  user  C-bit 

Leaue  system  state  and  return 
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DDDDDDDD 

MM 

MM 

CCCCCCCC 

000000 

uu    uu 

DDDDODDD 

MM 

MM 

CCCCCCCC 

000000 

uu    uu 

DD      DD 

MMM^ 

MMMH 

00 

00 

uu    uu 

DD      DD 

MMM^ 

MMMM 

00 

00 

uu    uu 

DD      DD 

MM 

"IH  MM 

00 

00 

uu    uu 

DD      DD 

MM 

•IM  MM 

29 

00 

uu    uu 

DD      DD 

MM 

MM 

00 

00 

uu    uu 

DD      DD 

MM 

MM 

00 

00 

uu    uu 

DD      DO 

MM 

MM 

00 

00 

uu    uu 

DD      DD 

MM 

MM 

00 

00 

uu    uu 

DD      DD 

MM 

MM 

00 

00 

uu    uu 

DD      DD 

MM 

MM 

00 

00 

uu    uu 

DDDDDDDD 

LLLLLLLLLL 

MM 

MM 

CCCCCCCC 

000000 

uuuuuuuuuu 

DDDDDDDD 

LLLLLLLLLL 

MM 

MM 

CCCCCCCC 

000000 

uuuuuuuuuu 

ssssssss 

TTTTTl 

rTTT 

ssssssss 

TTTTT 

nil 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

r 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

inc     A7U     c- 
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MD$DQ 

HD$DTE 

MDSDU 

MDtDUP 

MD$DV 

MD$DZ 

MtSFUL 

MDtHAL 

MDSHEL 

MDSKCP 

MDSKDP 

MDIKDZ 

MD$<L 

MD$KMX 

MDtKMY 

MDtLEN 

MDSPCL 

l«ID$QNA 

MOtUNA 

MDtWIT 

MD.ABO 

MD.ACC 

MD.AOB 

MD.BOB 

HD.DIA 

MD.DOB 

MD.DUM 

MD.FAI 

MD.FNA 

MD.FOB 

MD.LOA 

MD.LSH 

MD.NOB 

MD.NON 

MO. PER 

MD.RES 

MD.ROB 

MD.RSH 

MD.SOU 

MD.SLO 

MD.SNA 

MD.TLO 

MD.UNA 

NO.UNR 

MD.UOB 

MD.VOL 

MEtALI 

ME  SAL  2 

MESARE 

ME$CIR 

MESEXA 

MESEXE 

MESLIN 

MESLOG 

MESMOD 

ME$NOD 

MESNON 


000006 

00002^ 

000002 

000012 

000026 

000030 

000000 

000001 

000002 

000013 

000034 

000036 

OOOOAO 

000054 

000052 

000050 

00001 1 

000005 

000001 

000002 

000017 

000010 

000016 

00001 1 

000007 

000015 

000002 

OOOOU 

000001 

000006 

000001 

000020 

000012 

177777 

000000 

OOOOOA 

000005 

000013 

000005 

000003 

000000 

000004 

000002 

000003 

000007 

000006 

000010 

000003 

000005 

000003 

000000 

000200 

000001 

000002 

000004 

000000 

177777 


HE $08 J 
ME$0B2 
MESPRO 
MESSYS 
ME.BLO 
ME. CON 
ME.CST 
ME.DIS 
ME. DON 
ME.FCO 
ME.FIO 
ME. FOP 
ME. FOR 
ME. FUN 
ME.GRO 
ME.HAR 
ME.IID 
ME. LCD 
ME.LPR 
'  .MPR 
Ml.MVE 
ME. OPE 
ME.PLO 
ME.PMI 
ME . PNA 
ME.PRI 
ME.PTY 
ME . PVA 
ME. RES 
ME.ROO 
ME.SIZ 
ME. SYS 
ME.UCO 
MFSACT 
MFSADD 
MFSADJ 
MFSALL 
MFSBYE 
MFSCHA 
MFSDUM 
HFSEVT 
MFSFUP 
MFSKNO 
MFSLOA 
MFSLOO 
HFSREA 
HFSSIG 
MFSSPF 
MFSSYS 
MFSTES 
MFSTRA 
MFSTRl 
MFSZER 
MLSALL 
MLSCLS 
MLSCON 
MLSEXT 


000007 

000004 

000005 

000006 

177744 

177753 

177765 

177755 

177600 

177762 

177756 

177763 

177776 

177777 

1777',5 

177750 

177767 

1 77766 

177757 

177773 

177771 

\777t,7 

177751 

177743 

177752 

177775 

177772 

177760 

177761 

177754 

17777 1, 

1777i^(i 

177770 

17777b 

000000 

177771, 

177775 

000300 

000023 

000020 

000001 

000264 

177777 

000017 

177775 

000024 

177771 

000302 

000026 

000022 

000301 

000021 

000025 

100000 

000000 

000001 

000001 


MLSFIL 

000002 

MPIBDF 

002164 

MPIDUM 

000202 

ML$FIR 

000000 

MPSBFQ 

001616 

MPSDUP 

002^  27 

MLtINT 

MP$BLK 

MPSDVC 

002114 

MLIKNO 

140000 

MPSBLO 

001452 
002176 

MP$DWE 

001321 

MLSMON 

000003 

HPSBMX 

MP$ELT 

000157 

MLSSYS 

000002 

MPSBNP 

006330 
001620 

HP$ETY 

581^95 

MLtTOP 

MPSBRT 

MP$EVE 

000311 

MNSUNL 

000377 

MPSBSA 

002176 

MPSFNC 

001752 

MOSACC 

000200 

MPSBSD 

002203 

MPSGDT 

002222 

MOSADD 

000002 

MPSBSI 

002200 

MPSGNM 

99?223 

HOSALA 

MP$BSP 

006331 

MPSGRO 

002115 

HO$ALI 

000000 

MPSBUF 

000170 

MPSGRP 

000541 

MOSCHA 

000040 

MPSBUP 

006324 

MP$GTY 

002224 

MOSCIR 

000003 

MPSBUS 

001643 

MPSHAD 

901 ''5^ 

MOSCLE 

000100 

MPSCAC 

001750 

MP$HBT 

002142 

MOSCOU 

000060 

MPSCAS 

001762 

MPSHDD 

000162 

MOSDAC 

000000 

MPSCAT 

002210 

MPSHTM 

001612 

MOSDEF 

000000 

MPSCCS 

004406 

MPSHUA 

992219 

MOSDPR 

000000 

MPSCHN 

002141 

MP$IAT 

001322 

MOSENT 

000017 

MPSCIR 

000144 

MPIIDE 

000144 

MOSEVE 

000100 

MP$CLK 

002131 

MP$IDP 

90§??^ 

MOSINF 

000160 

MP$CLN 

002126 

MPS I  HO 

000215 

MOSINS 

000002 

HPSCLT 

002211 

MPSINA 

002177 

MOtLIN 

000001 

MPICMB 

002142 

MPSIND 

90229^ 

HOSLOG 

000001 

MP$CMK 

000537 

MPSINI 

002201 

MOSMIR 

000031 

MP$CHX 

002153 

MPSITI 

000776 

MOSNAM 

000001 

MPSCND 

000310 

MPSLAA 

9902I] 

MOSNIC 

000023 

MPSCNU 

001753 

MPSLAN 

000234 

MOSNOD 

000000 

MPSCOB 

000311 

MPSLAR 

990202 

MOSOFF 

000001 

MPSCON 

002126 

MPSLAS 

000012 

M0$ON 

000000 

MPSCOS 

001604 

MPSLBS 

000203 

MOSOPT 

000001 

MPSCPF 

000230 

MPSLCO 

000226 

MOSPER 

000200 

MPICPL 

000232 

MPSLCT 

000156 

MOSPRO 

000002 

MP$CPT 

000226 

HPSLHL 

000232 

MOSPRS 

000001 

MPSCPU 

000161 

MPSLLE 

000227 

MOSREA 

000200 

MPICSZ 

001755 

MPSLLO 

004432 

HOSSET 

000000 

MPSCUS 

002127 

MPSLMB 

002152 

MOSSIA 

000020 

MPSCVA 

000540 

MPSLMX 

002200 

MOSSUM 

000000 

MP$DAL 

002570 

MPSLNA 

000144 

MOSTSK 

000000 

MP$DCO= 

001464 

MPSLNO 

000233 

MOSVOL 

000000 

MPSDDT 

002177 

MPSLOA 

000170 

MOSZER 

000000 

MPIDEL 

001131 

MPSLOG 

004514 

MP$AC3 

000012 

MPSDES 

000156 

MPSLOO 

000620 

MPSACC 

000514 

MPSDEV 

002114 

MPSLTM 

991613 

MPIACT 

004526 

MPSDFA 

00  320 

MPSLTY 

004533 

MPSADD 

0007Co 

MP$DHO= 

00  465 

HPSLUl 

000230 

MPJADJ 

001440 

MPSDIA 

000173 

HPSMAC 

004420 

MPSADP 

006325 

MPSDLB 

002571 

MPSMAD 

001630 

MPSADS 

004406 

MPSDLG 

004521 

MPSMAP 

006323 

MP$AL8 

000036 

MP$DLI= 

001466 

MPSHAR 

001635 

MPSAHC 

001640 

MPSDLT 

002200 

MPSMAV 

006321 

MPSAMH 

001641 

MP$DRO 

001441 

MPSMBN 

001636 

MPIANB 

004420 

MPSDST 

000454 

MPSMBR 

001637 

MPSASB 

000024 

MPSDTE 

002140 

MPSMBU 

001642 

MPSASC 

004432 

MP$DTY= 

001452 

MPSMC& 

000156 

MPSAUS 

000512 

MPSDUA 

000207 

HPSMCO 

001632 

MPSBBT 

002165 

MPSDUC 

000210 

MPSMOE 

004421 
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Saturday  2 

CONTEXT  AREA  OFFSET  DEFINITIONS 

000122 

L$8SA 

.BLKB 

000123 

LSBSD 

.BLK8 

0001 2A 

L$8SI 

.8LKB 

000125 

LtlNA 

.BLK8 

000126 

L$IND 

.BLKB 

000127 

L$INI 

.BLKB 

000130 

L$TH1 

.BLKB 

000131 

L$TH2 

.BLKB 

000132 

L$TH3 

.BLKB 

000133 

L$MXB 

.BLKB 

000134 

L$NTL 

.BLKU 

000166 

L$SCR 

.BLKW 

00022A 

L$LCT 

.BLKU 

000226 

L$HTH 

.BLKW 

000230 

LSSER 

000230 

LSLTM 

.BLKW 

000232 

LIXCH 

.BLKW 

00023A 

LSLMS 

000234 

L$CMB 

.BLKW 

000236 

LSNUML : 

000236 

L$DTEL:  .BLKW 

0002A0 

L$NUM 

000240 

LJDTE 

.BLKB 

000250 

LSDTEP:  .BLKW 

000252 

L$MUN 

000252 

L$MXW 

.BLKB 

000253 

L$MRT 

000253 

L$MXR 

.BLKB 

000254 

L$HBT 

•   .BLKW 

000256 

L$NTI 

000256 

L$RET 

•   .BLKW 

000260 

LSCUS 

■   .BLKW 

000262 

L$BLK 

:   .BLKW 
.IF  OF 

L$LTY 

:   .BLKW 

L$MDT 

.BLKW 
.ENDC 
.EVEN 

000264 

L$LEN 

000004 

.PSECT 

n  u 


000001 
000002 
000004 


000010 
040000 
100000 


000001 
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DMP  ACTIVE  BASE 
DMP  DYING  BASE 
DMP  INACTIVE  BASE 
DMP  ACTIVE  INCREMENT 
DMP  DYING  INCREMENT 
DMP  INACTIVE  INCREMENT 
DMP  DEAD  THRESHOLD 
DMP  DYING  THRESHOLD 
DMP  INACTIVE  THRESHOLD 
DMP  MAXIMUM  BLOCKS 
NTL  MESSAGE  BUFFER 
SCRATCH  BUFFER 
COUNTER  TIMER 
HELLO  TIMER 
SERVICE 
LISTEN  TIMER 

X25  Logical  Channel  Number  (LCN) 
X25  Max  Block  (Line) 
X25  Max  Data  (Circuit) 
DLM  Number  length 
X25  DTE  length  (Circuit) 
DLM  Number 
X25  DTE  (Circuit) 

X25  Pointer  to  DTE  descriptor  (Circuit) 
X25  Max  Window  (Line) 
X25  Max  Window  (Circuit) 
X25  Max  Retransmits  (Line) 
DLM  Max  Recalls  (Circuit) 
X25  Holdback  Timer  (Line) 
X25  Retransmit  Timer  (Line) 
DLM  Recall  Timer  (Circuit) 
DLM  Usage 

DLM  blocking  state 
net 

Loopback  Type 
Modem  Test 


LENGTH  OF  CONTEXT  AREA 


FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 


LFSREA  =  1 
LF$ZE-<  =  2 
LFSSKP  =  4 


LF$VR2  =  10 
LFSMLT  =  40000 
LFSSEG  =  100000 

PARSE  FLAG  DEFINITIONS  (L$PFG) 

LPIUNT  =  1  ; 


READ  COUNTERS  OPERATION 
ZERO  COUNTERS  OPERATION 
SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 
THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 
FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 
CONTROLLER  COUNTERS  AS  WELL  AS  ALL 
OF  THE  TRIBUTARY  COUNTERS. 
CONNECTED  TO  VERSION  2.0  NCP 
MULTIPLE  ADJACENCY  FLAG 
SEGMENTED  RESPONSE  IN  PROGRESS 


UNIT  NUMBER  FOUND 


r.fciic      i/n     rn    ru 


MAron     \ir\K     A'^K     Cat-iirHa^ 


N  U 

DO.  Inn. a";     1?'?^ 


PAnp    A-P 


N  15 
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MACRO  NAME 

REFERENCES 

ALUNIS 

*5-60 

9-203 

CALL 

8-111 

8-138 

8-178 

9-202 

CICCXS 

#5-59 

6-75 

D1R$ 

»8-U9 

8-149 

#8-160 

8-160 

#9-203 

9-203 

#9-206 

GLUNSS 

#5-6C 

9-206 

MOVt 

#8-149 

8-149 

8-149 

8-149 

#8-149 

8-149 

§■1^? 

#9-203 

9-203 

9-203 

9-203 

#9-206 

9-206 

9-206 

MVB$ 

#8-149 

8-149 

OFfS 

#9-206 

QDPBtS 

#8-U9 

8-149 

QlOWtS 

»5-60 

8-149 

QIO$S 

-•5-60 

RESRG 

/5-59 

8-142 

9-211 

RETURN 

8-184 

9-212 

RVP$ 

#8-149 

8-149 

8-149 

8-149 

SAVRG 

«5-59 

8-130 

9-201 

WSlGtS 

<5-60 

8-160 

9-206 
#8-149     8-149     8-149 


N  IS 


IL 


Symbol  table 


AttCHK,= 

A$tCPS= 
A$tPRl= 

AttTRP: 

CURCTX= 

C$LOC  = 

C$STAT= 

C$tCKP= 

C$10RE= 

C$tftSH= 

DEALUN= 

DLXAST= 

DLXERR 

DLXLUN 

DLXMSG 

OLXQIO 

DLXTXT 

D$tBUG= 

D$$ISK= 

D$$L1U 

Dt$YNC= 

D$$VNM= 

Et$XPR= 

FMTLIN= 

FORK   = 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G1$W9D= 

G.LUCW= 

G.LUFB= 

G.LUNA= 

G.LUNU= 

IE.UPN= 

I$$RAR= 

1$$RDN= 

l(.$$CNT  = 

K,$$CSR  = 

KtSLDC^ 

K$$TPS= 

LCtNIL= 

LC$OWN= 

LDtLP  = 

LFtMLT  = 


000000 

000000 

000000 

000000 

...•••  GX 

••««••  GX 

•«••••  GX 

000000 

000100 

177561 

«».*»«  GX 

•••»♦»  GX 

OOOOUR 

00020ARG 

COOOOOR 

000022RG 

000001 R 

1775U 

000000 

000001 

000000 

000000 

000000 

•••••♦  GX 

••••♦•  GX 

000001 

000000 

000000 

000000 

000000 

000001 

000003 

000000 

000002 

•♦«••«  GX 

000000 

000000 

177546 

177546 

000000 

000074 

000200 

000400 

000000 

040000 


LF$REA= 
LF$SEG= 
LF$SKP= 
LF$VR2= 
LF$ZFR= 
LP$MPr= 
LP$MUX= 
LP$NXC= 
LPtTRB= 
LOtUNT= 
LP$WCN= 
LP$WDV= 
LP|WLD= 
LP$WTR= 
LPtWUN= 
LS$ACT= 
LS$BBT= 
LS$BLK= 
LS$BSA= 
LS$BSD= 
LS$BS1= 
LStCHN= 
LS$CMB= 
LS$COS= 
LS$CUS= 
LS$DDT= 
LSSDEA= 
LS$DLM= 
LS$DLT= 
LS$DTE= 
LS$HBT= 
LS$HTM= 
LS$INA= 
LS$IND= 
LS$INI= 
LS$LCT= 
LS$LMB= 
LS$LOO= 
LS$MDT=-- 
LS$MRT= 
LS$MWN= 
LS$MXB= 
LS$M<R= 
LS$^XW= 


000001 

100000 

000001 

000010 

000002 

000010 

000001 

100000 

000002 

000001 

000010 

000020 

000360 

000200 

000100 

00001 

01000U 

001000 

000001 

000002 

000001 

000001 

000002 

000001 

000001 

001000 

000100 

001001 

002000 

000010 

000100 

010000 

000010 

000020 

000010 

020000 

000002 

010000 

020000 

000020 

000010 

001000 

000020 

000010 


.  ABS.  000264 
00027? 
E'-'-ors  detected: 


000 
001 
0 


(RW,1,GBL,ABS,0VR) 
(RW,I,!.CL,REL,CON) 


AsseTitler  statistics 


Jork   file  reads:  0 

Work   tile  writes:  0 

Si^e  of  ,*0'k  tile:  13960  Words   (  55  Pages) 

Si^e  of  core  dooI:  15496  Words  (  59  Pages) 


turday 
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LS$NMT= 

020000 
100000 

L$INA 

LS$N0R= 

LUND 

LS$NTI= 

L$IN1 

LS$NTL= 

8§01oS 

L$LCT 

LS$NUM= 

L$LEN 
LJLMB 

LS$0WN= 

000010 

LS$PLT= 

SS 

L$LTM 

LS$PRO= 

L$MRT 

LS$PVC= 

L$«SG 

LS$RET= 

Tol'ot 

LSMTYP 

LS$SER= 

L$nWN 

LS$STA= 

000002 

L$MXB 

LS$SVC= 

000362 

LtMXR 

LS$TAD= 

000020 

L$MXW 

LS$TH1= 

000100 

L$NAM 

LS$TH2= 

000200 

L$NLEN= 

LS$TH3= 

000100 

L$NMT 

LS$XHT= 

010000 

L$Nn 

LSACT 

000101 

LSNTL 

L$BBT 

000111 
000262 

L$NUM 

L$BLK 

LSNUML 

L$BSA 

000122 

L$NXT 

L$8SD 

000123 

L$0PT 

L$8SJ 

000121 

LSOWN 

L$8UF 

000060 

LSPAR 

LSCHN 

000051 

LSPDV 

LSCMB 

000231 

L$PFG 

L$COS 

000101 

L$PLT 

LSfTB 

000053 

L$PRO 

LiCTL 

000002 

LSPVC 

L$CUS 

000260 

LSRET 

LIDDM 

000000 

L$SCN 

L$DDT 

000106 

L$SCR 

LSDEA 

000105 

L$SER 

LSDLT 

000110 

LSSLEN 

LSDTE 

000210 

LSSLT 

L$DTEL 

000236 

LSSNH 

LSDTEP 

000250 

L$STA 

LSFLG 

000061 

L$TAD 

LSFLX 

000076 

L$TH1 

L$FL1 

000066 

L$TH2 

L$FL2 

000070 

L$TH3 

LSHBT 

000251 

L$TNM 

LSHTM 

000226 

LirPT 

000125 
000126 
000127 

000261 
000231 
000230 
000253 
000056 
000075 
000252 
000133 
000253 
000252 
000000 
000020 
000116 
000256 
000131 
000210 
000236 
000011 
000062 
000102 
000072 
000055 
000011 
000112 
000075 
000001 
000256 
000020 
000166 
000230 
000071 
000012 
000016 
000100 
000103 
000130 
000131 
000132 
000052 
000050 


L$TRB 

L$TYP 

LtUNT 

L$XCH 

L$XMT 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

M$$ACP= 

«$$CRB= 

M$$CRX= 

M$$FCS= 

M$$HGE= 

M$$NET= 

M$$OVR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$fPEM= 

P$$P15= 

P$$WRD= 

Q$$OPT= 

R$$DER= 

R$$K'''  = 

R$$SI.O= 

R$$11M= 

STATUS= 

SSSWRG= 

S$$YSZ= 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

$CBDSG= 

$DSW  = 

$SAVAL= 

STMLUN- 

$$$ARG= 

$$$0ST= 


000010 

000063 

000003 

000232 

000120 

000000 

000000 

000001 

000000 

000001 

000121 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

♦♦*♦«♦  GX 

000000 

007600 

000000 

000000 

001000 

000000 

******  GX 

******  GX 

******  GX 

******  GX 

000002 

000011 
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SYMBOL  VALUE  REFERENCES 

BITC  =  000001  #5-61 

BIT1  =  000002  #5-61 

B1T10  =  00200C  #5-61 

Birr  =  00400C  «5-6i 

Bill?  =  010000  #5-61 

B!T13  =  020000  #5-61 

BIT14  =  0^.0000  #5-61 

BIT15  =  100000  #5-61 

BIT2  =  000004  #5-61 

BIT3  =  000010  #5-61 

BIT4  =  000020  #5-61 

BIT5  =  OOOOAO  #5-61 

BIT6  =  000100  #5-61 

BIT?  =  000200  #5-61 

BITS  =  000400  #5-61 

BIT9  =  001000  #5-61 

B$10  000003  #5-61 

B$11  000004  #5-61 

BS12  00C005  #5-61 

B$5  900000  #5-61 

B$6  000001  #5-61 

BI7  000002  #5-61 

eS'PO  000006  #5-61 

C1-'    H  =   ••»*••  GX           6-72 

Cl.'.iiCO  =  »«»«•»  GX           6-74 

CIREOP  000022  RG           #7-103 

CIREST  =  »•♦«».  GX     6-75      6-76 

CIZEOP  000022  RG    #7-104 

DISTBL  000000  R     #6-70      7-129 

FMTCIR  =  »»..♦»  GX     7-125 

GETCIR  000226  R      7-116    #8-187 

I$$A5  =  •»♦<♦»  5-63 

LFSEND  =  000020  #5-61 

lFSMLT  =  040000  #5-61 

LFSRcA  =  000001  #5-61 

LFSSEG  -  100000  #5-61                7-111 

LFSSIG  =  000040  #5-61                7-141 

LFSSKP  =  000004  #5-61 

LF$VR2  =  000010  #5-61 

LFSZER  =  000002  #5-61 

IF. ACT  =  100000  #5-64      £-203 

LF.BRO  =  000400  #5-64      8-201 

LF.8JT  =  000007  #5-64 

LF.ENA  =  002000  #5-64 

LF.LPB  =  001000  #5-64 

LF.MDC  =  000100  #5-64 

LF.MFL  =  004000  #5-64 

LF.MTP  =  000020  #5-64      8-205 

I  F.PAl  =  000200  #5-64 

[F.RDv  =  040000  #5-64 

LF.kEA  =  010000  #5-64 

LF.SER  =  000040  #5-64 
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302 
303 
30A 
305 
306 
307 
308 
309 
310 
311 
312 

313  000636 

314  0006A2 

315  0006A6 

316  000652 

317  000656 

318  000662 

319  000666 

320  000670 

321  00067A 

322  000676 

323  000704 

324  000710 

325  000712 

326  000716 

327  000726 

328  000734 

329  000740 

330  000750 

331  000756 

332  000762 


.SBTTL  GETADE  -  Get  an  endnode  adjacency 

**   GETADE  -  Get  an  end  node  adjacency 

Inputs:      R1  -  PLB  address 

Output:      R1  -  Adjacent  node  address  or  0 

TEMP  -  block  size  fo-  adjacent  node 


005066 
116101 
012702 

103433 
067702 
011202 

016202 
001422 
016201 

016166 
016201 


000002G 

000004 

114224 


OOOOOOG 

000016 
000072 


COOOOO  000002G 
000074 


016167  000000  177072 


10$: 
20$: 


AU  registers  are  preserved. 


20$ 

R$R1+2(SP) 

P$CHN(R1),R1 

#»RXPT,R2 

aPDVID 

10$ 

aPDVTA,R2 

(R2),R2 

Z.DSP(R2) 

Z.DAT(R2>,R2 

10$ 

N$ADJ1(R2),R1 

R1 

A$NID(R1),R$R1+2(SP) 

N$ADJ2(R2),R1 

R1 

f$TSZ(R1),TEMP 


GFTADF:  SWSTK$ 
SAVHAP 
CLR 
M0V8 
MOV 
CALL 
BCS 
ADD 
MOV 
MAP 
MOV 
BEO 
MOV 
BIAS 
MOV 
MOV 
BIAS 
MOV 
RESMAP 
RETURN 


enter  system  state 

save  APR  6  mapping 

zero  saved  R1 

pick  up  channel  number  from  PLB 

set  up  process  id 

get  PDV  index  ;  RJK05 

if  CS,  return  nothing       ;**-1 

point  to  PDV  address        ;  RJK05 

point  to  PDV  ;**-1 

map  onto  process  database 

goint  to  transport  database 
r  if  transport  not  loaded 
point  to  active  adjacency 
map  via  APR  6 
get  adjacent  node  address 
get  address  of  ADJ2 
make  it  an  APR6  address 
get  block  size  from  ADJ2 
restore  APR  6  mapping 
back  to  user  state 
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SYMBOL 

VALUE 

REFERENCES 

ATSUP 

=  000010 

9-371 

ASCIR 

000003 

9-373 

ASLEN 

000004 

9-368 

ASNID 

000000 

8-327 

9-376 

ASTSZ 

000000 

8-330 

9-378 

A$TYP 

000002 

9-371 

BITO 

=  000001 

#5-73 

BIT1 

=  000002 

#5-73 

BIT10 

=  002000 

#5-73 

BIT11 

=  OOAOOO 

#5-73 

BIT12 

=  010000 

#5-73 

BIT13 

=  020000 

#5-73 

BITK 

=  OAOOOO 

#5-73 

BIT15 

=  100000 

#5-73 

BIT2 

=  OOOOOA 

#5-73 

BIT3 

=  000010 

#5-73 

BIT^ 

=  000020 

#5-73 

BIT5 

=  000040 

#5-73 

BIT6 

=  000100 

#5-73 

BIT7 

=  000200 

#5-73 

BITS 

=  000400 

#5-73 

BIT9 

=  001000 

#5-73 

B$10 

000003 

#5-73 

B$11 

000004 

#5-73 

B$12 

000005 

#5-73 

B$5 

000000 

#5-73 

B$6 

000001 

#5-73 

B$7 

000002 

#5-73 

B$7S10 

000006 

#5-73 

CF$Vfi2 

=  ****** 

ax 

10-409 

CF$VR3 

-    ****** 

GX 

10-409 

CIREST 

000052 

RG 

#7-158 

CURCTX 

=  ****** 

GX 

10-408 

CSFLAG 

=  ****** 

GX 

10-409 

DECPT 

=    ****** 

GX 

7-249 

7-264 

10-417 

OSLNIIM 

000014 

10-418 

DSWBiA 

000056 

7-266 

DSNORA 

000054 

7-265 

DSNIN 

000030 

7-250 

7-267 

FNDPLD 

001366 

R 

7-201 

7-238 

#12-504 

GETADE 

000636 

R 

7-288 

#8-313 

GETADJ 

000764 

R 

7-253 

7-271 

7-280    #9-351 

;$$AS 

-   ***♦♦♦ 

5-65 

7-268 

<I5AR6 

=      ** t ♦*♦ 

GX 

8-314 

•8-322 

•8-331     9-353 

LFSEND 

=  000020 

#5-73 

7-245 

LFSMLT 

=  040000 

#5-73 

lf«;rea 

=  000001 

#5-73 

LFSSEG 

=  100000 

#5-73 

7-161 

7-277     7-282 

LFSSIG 

=  000040 

#5-73 

LFSSICP 

^   000004 

#5-73 

LF$VR2 

=  000010 

#5-73 

LFSZER 

=  000002 

#5-73 

•9-363 


•9-377 


•9-383 
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80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99  000000 

100  000000 

101  000004 

102  000012 

103  000020 

104  000022 

105  000026 

106  000034 

107  000036 

108  000042 

109  000044 

110  000050 

111  000056 

112  000062 

113  000064 

114  000072 

115  00U074 

116  000076 

117  000102 

118  000106 
119 

120  000110 

121  000114 

122  000120 

123  000124 
124 

125 
126 

127  000126 

128  000132 

129  000134 

130  000140 

131  000142 

132  000150 

133  000152 

134  000156 

135  000160 
156  000166 


012700 
012764 
022764 
001501 
016401 
032761 
001005 
012700 
000470 
012700 
012764 
105761 
001005 
032761 
001054 
000405 
016401 
132711 
001046 


105031 


020027 
001416 

103404 
116461 
000422 

103404 
116461 
000413 


.SBTTL  SETTAD  -  SET  TRIBUTARY  STATION  ADDRESS 

'♦♦-SETTAD-SET  TRIBUTARY  STATION  ADDRESS 

THIS  ROUTINE  IS  CALLED  TO  CHANGE  THE  TRIBUTARY  ADDRESS 
FOR  A  MULTIPOINT  LINE. 

INPUTS: 

R4  =  ADDRESS  OF  CONTEXT  AREA  WITH: 

L$TAD(R4)  =  NEW  TRIBUTARY  ADDRESS 

OUTPUTS: 

IF  CC,  ADDRESS  SET, 
ELSE,  ERROR  CODE  IN  RO 

REGISTERS; 

R4,  R5  ARE  PRESERVED 


177752 

002164  000072 

^77777    000050 

000042 

000020  000000 

177752 

177765 

000001  000072 

000014 

100000  000000 


000050 
000200 


SETTAD:: 


10$: 


15$: 


17$: 


MOV  #ME.PNA,RO 

MOV  #MP$TRI,L$PAR(R4) 

CMP  #-1,L$TPT(R4) 

BEQ  70$ 

MOV  L$SLT(R4),R1 

BIT  #LF.MTP,L.FLG(R1) 

BNE  10$ 

MOV  #ME.PNA,RO 

BR  70$ 

MOV  #ME.CSi,RO 

MOV  #ME$L1N,L$PAR(R4) 

TSTB  L.NSTA(RI) 

BNE  15$ 

BIT  #LF.ACT,L.FLG(R1) 

BNE  70$ 

BR  17$ 

MOV  L$TPT(R4),R1 

BITS  #SF.ACT,(R1) 

BNE  70$ 

SUSTK$  80$ 

SAVMAP 

CALL  FNDDCP 

BCC  30$ 


.IF  NDF  R$$PR0 


PRO/DECnet 


177765 

000103  000003 

000105  000004 


18$: 


CMP  RO,#ME.CST 

BEQ  20$ 

CALL  FNDPCL 

BCS  18$ 

MOVB  L$TAD(R4),S.PSA(R1) 

BR  40$ 

CALL  FNDDMP 

BCS  20$ 

MOVB  L$TAD(R4),T.TRPN(R1) 

BR  40$ 


assume  parameter  not  applicable 

is'this  a  PVC? 

BR  IF  YES 

POINT  TO  THE  SLT 

IS  THIS  A  MULTI-POINT  LINE  ? 

IF  NE,  YES  -  CONTINUE 

SET  PARAMETER  NOT  APPLICABLE  ERROR 

AND  RETURN 

ASSUME  LINE  IS  IN  WRONG  STATE 

MULTI-POINT  MASTER  ? 

IF  NE,  YES  -  CHECK  TRIB  STATE 

ELSE,  IS  THE  LINE  ACTIVE  ? 

IF  NE,  YES  -  ERROR 

ELSE,  CONTINUE 

POINT  TO  THE  TRIBUTARY  FLAGS 

IS  THE  LINE  ACTIVE  ? 

IF  NE,  YES  -  ERROR 

ENTER  SYSTEM  STATE 
SAVE  OUR  CURRENT  MAPPING 
FIND  THE  DCP  LINE  TABLE 
IF  CC,  FOUND  IT 


ELSE,  WAS  IT  A  "LINE  STATE"  ERROR  ? 

IF  ECl,  YES  -  RETURN  WITH  THAT  ERROR 

ELSE,  MAYBE  IT'S  A  PCL  ? 

BR  IF  NOT  FOUND  -  TRY  DHP 

ELSE,  SET  NEW  PHYSICAL  ADDRESS 

AND  RETURN 

FIND  THE  DMP  LINE  lABLE 

BR  IF  NOT  FOUND 

ELSE  SET  NEW  TRIB  ADDRESS 

AND  RETURN 
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SYMBOL 

VALUE 

REFERENCES 

RtSPRO 

=       »*t*** 

5-76 

R$$RTR 

=       ****** 

5-78 

nSlID 

=       ****** 

5-63 

«$11M 

=  000000 

5-63 

nsiis 

-   ****** 

5-63 

^.CSR 

000056 

#5-66 

R.FLG 

000064 

#5-66 

R.LS 

000104 

#5-66 

R.MAP 

000110 

#5-66 

R.QUE 

000062 

#5-66 

R.SLN 

000070 

#5-66 

R.SRV 

000060 

#5-66 

R.STA 

000066 

#5-66 

R.STBL 

000210 

#5-66 

SETACT 

000230  RG 

#7-169 

SETDEA 

000350  RG 

#8-213 

SETTAD 

000000  RG 

#6-99 

SF.ACT 

=  000200 

#5-64 

SF.ENA 

=  000100 

#5-64 

SF.LPB 

=  000004 

#5-64 

SF.MFL 

=  000040 

#5-64 

SF.PAC 

=  000020 

#5-64 

SF.REA 

=  000010 

#5-64 

SF.SER 

=  000001 

#5-64 

SF.SVC 

=  000002 

#5-64 

SF.UNL 

=  000040 

#5-64 

S$$eAS 

=  ****** 

5-78 

S.COST 

000001 

#5-64 

S.CTL 

000006 

#5-66 

S.ERR 

000010 

#5-66 

S.FLG 

000000 

#5-64 

S.LBE 

000044 

#5-66 

S.LEN 

000004 

#5-64 

S.LGTH 

=  000050 

#5-66 

S.LIN 

000004 

#5-66 

S.LINK 

177776 

#5-66 

SJ  SA 

000005 

#5-66 

S.NMST 

000002 

#5-64 

S.OUNR 

000003 

#5-64 

S.PLA 

000010 

♦7-182 

S.PSA 

000003 

#5-66 

S.RBE 

000042 

#5-66 

S.RCB 

000020 

#5-66 

S.RCV 

000014 

#5-66 

S.RDE 

000034 

#5-66 

S.RTY 

000001 

#5-66 

S.STA 

000000 

#5-66 

S.STPN 

000034 

♦6-143 

S.TL2 

000012 

#5-66 

S.TMO 

000040 

#5-66 

S.XDE 

000036 

#5-66 

S.XID 

000002 

#5-66 

5-76 


6-125 


6-117 


5-66 


♦6-131 


CIZEIN 
CIZEIN 


CIRCUIT  ZERO  COUNTERS     MACRO  VOS.OSb  Saturday  29-Juri~85 
CIRCUIT   ZERO  COUNTERS   INITIALIZE 
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127 
128 

129  000106 

130  000112 

131  0001U 
132 

133 
13A 

135  000116 

136  000124 

137  000130 
158  000132 
139 

UO 
HI 

142  000136 

143  000142 

144  000146 

145  000150 

146  000152 

147  000160 

148  000166 

149  000172 

150  000176 

151  000200 
152 

153 


012700 
005702 
001010 


177776 


012764  000003  000072 
000002 


103402 
012700 


MAKE  SURE  THERE  IS  NO  INPUT  DATA 

MOV     #ME.FOR,R0 
TST     R2 
BNE     40$ 

CHECK  AND  SAVE  LINE  FORMAT 

MOV  #ME$CIR,1SPAR(R4) 

CALL  CHKCIR 

BCS  40$ 

MOV  #MS.M0R,R0 


ASSUME  ILLEGAL  INPUT  FORMAT 

ANY  INPUT  DATA  ? 

IF  NE,  YES  -  ILLEGAL 


SET  ERROR  DETAIL 
CHECK  CIRCUIT  FORMAT 
IF  CS,  ERROR 
ELSE,  MORE  TO  COME 


016403 
012702 
110013 
100013 
116463 
116463 
012702 
005064 
000261 


000001 


000060 
000001 


000072  000001 

000073  000002 
000003 
000064 


USE  THE  STATUS  IN  RO  TO  BUILD  THE  RETURN  MESSAGE  AND  C-BIT  RETURN 


40$: 
50$: 


60$: 


MOV 

MOV 

MOVB 

BPL 

MOVB 

H0V8 

MOV 

CLR 

SEC 

RETURN 

.END 


L$BUF(R4),R3 

#1,R2 

R0,(R3) 

60i 

L$PAR{R4),1(R3^ 

L$PARt1(R4),2(R3) 

#3,R2 

L$FLG(R4) 


RESTORE  THE  BUFFER  ADDRESS 

SET  MESSAGE  LENGTH  TO  1  BYTE 

SET  ^HE  RETURN  CODE 

IF  PL,  SUCCESS 

STORE  LOW  BYTE  OF  ERROR  DETAIL 

STORE  HIGH  BYTE 

UPDATE  LENGTH 

Else,  UNSUCCESSFUL  INIT 

EliF,  NC  -  SET  ERROR  RETURN 
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CONTEXT  AREA  DEFINITIONS 


60 
61 
62  000000 


00000^ 


000000 
000020 


000000 
000000 
000002 
000003 
OOOOOA 

000020 
000040 
000041 
000042 
000044 
000046 
000050 
000052 
000053 
000054 
000055 
000056 
000060 
000062 
000063 
000064 
000066 
000067 
000067 
000070 
000070 
000070 
000072 
000110 
000112 
000114 
000116 
000120 
000122 
000124 
000000 


000124 

000000 
000001 


000020 


000000 


.SBTTL  CONTEXT  AREA  DEFINITIONS 
CIRCXS  LIST 
CONTEXT  "REA  OFFSET  DEFINITIONS 


.ASECT 
.  =  0 
LSNLEN 


16. 


MAXIMUM  NAME  LENGTH 


•  The  offsets  L$NAM  to  L$PDV  inclusive  must  appear  in  Ihe  same  order 
;  as  in  the  CIRCXS  and  LOCCXS  macros. 


LSNAM 
L$DDH; 
LSCTL 
LSUNT 
LJPVC 

LSSCN 

L$TR8 

LSPFG 

LSSLT 

LSNXT 

LSSNM 

LSTPT 

LSTNM 

LSCTB 

LSCHN 

LSPDV 

LSMSG 

LSBUF 

LSOPT 

LSTYP 

LSFLG 

LSSLEN 

LSHRO: 

LSMTYP 

LSTSZ 

LSLTM 

LSFLX 

LSSCR 

L$ADJ 

LSNOD 

LSCOU 

L$PL8 

LSPAR 

LSSYL 

LSLEN 


.BLKU  1 
.BLKB  1 
.BLK8  1 
.BLKU  1 
.  =  0+L$NLEN 
.BLKB   LSNLEN 


.BLKB 
.BLKB 
.BLKU 
.BLKU 
.8LKW 
.BLKU 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.8LKW 
.BLKU 
.BLKB 
.BLKB 
.BLKU 
.BLKB 


.BLKB   1 


.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 

.PSECT 


;  DEVICE  NAME 

;  CONTROLLER  NUMBER 

;  UNIT  NUMBER 

;  3RD  UORD  OF  PVC  NAME 
SPACE  FOR  EXPANDED  CIRCUIT  NAME 

;  CURRENT  NAME  IN  UILDCARD  SCAN 
TRIBUTARY  NUMBER 
PARSE  FLAGS 

Current  SLT/PVC  address 
Pointer  to  next  SLT/PVC  address 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  (-1  for  PSD 
REMAINING  NUfBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channel  number  /  X.25  port  number  and 
. . .  PDV  assigned 
ERROR  MESSAGE  STRING  POINTER 
SAVED  BUFFER  POINTER 
SAVED  OPTIONS  BYTE 
LINE-ID  FORMAT  TYPE 
FLAG  UORD 

Significant  length  of  circuit  name 
Line  protocol 

Network  management  circuit  type 
Block  size  for  transport  circuits 
Listen  timer  for  transport  circuits 
Flags  word  for  X.25  circuit  commands 
SCRATCH  BUFFER 

Pointer  to  acjacency  database 
Aojacent  node  address 
Count  of  adjacency  entries 
PLB  address 
PARAMETER  TYPE 
System  line  number 
LENGTH  OF  CONTEXT  AREA 


OFFSETS  INTO  SCRATCH  BUFFER  (LSSCR)  FOR  DMi.  BASE  TABLE  COUNTERS 


B$5: 
B$6: 


.ASECT 
.=0 

.BLKB   1 
.BLKB   1 


BASE  TABLE  *  5 
BASE  TABLE  +  6 


DACOU      CREATED  BY  MACRO  ON  29-JUN-85  AT  12:21 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 


N  8 

PAGE  6 

CREF   OA.OO 


.X2CHB 

#5-56 

.X2CHW 

#5-56 

.X3CHB 

#5-56 

.X3CHW 

#5-56 

v». 


■^. 
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Symbol  table 


Work  file  reads;  0 

Work  file  writes:  0 

Size  of  work  file:  16020  Words  (  63  Pages) 

Size  of  core  pool:  17608  Words  (  67  Pages) 

Operating  system:  RSX-IIM/PLUS 


Page  10-3 


Elapsed  time:  00:00:22.31  . 

SY:DCPC0U.V2,C135,13A]DCPC0U/CR/-SP=SY:[1 


,1]RSXMCM.SML/ML,[130,110]NFTLI8/ML,C130,10]RSXMCM/PA:1,C135,10]DCPCOU 


DEALUN     CREATED  BY 
MACRO  CROSS  HEFEP-NCE 


MACRO  NAME 

REFERENCES 

CALL 

6-77 

HDRDFI 

#5-62 

MAP 

#5-60 

RESMAP 

#5-60 

RETURN 

6-103 

SAVMAP 

#5-60 

SWST<$ 

6-77 

MACRO  ON  29-JUN-85  AT  17:42 


5-63 
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CREF   04.00 
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COPY  -  Copy  data  from  LDB  to  message  buffer 


283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 

296  000664 

297  000664 

298  000670 

299  000672 

300  000700 

301  000704 

302  000714 

303  000716 

304  000722 

305  000724 

306  000730 
307 


.SlTIL  copy  -  Copy  data  from  LD8  to  message  buffer 
•♦-COPY  -  Copy  data  from  LDB  to  message  buffer 
Inputs: 


Output: 
Registers: 


RO  =  target  address 
Rl  =  byte  count 
R5  =  CCB  address 

RO  =  address  of  next  free  byte  in  buffer 

Rl  is  corrupted. 


016502 
112220 


000016 


COPY. 


10$: 


SAVMAP 

SAVRG 

MAP 

MOV 

BIAS 

MOVB 

SOB 

RESRG 

RE  SNAP 

RETURN 


<R2> 

C.BUFKRS) 

C.BUF1+2(R5),R2 

R2 

(R2)+,(R0)t 

Rl.lOi 

<R2> 


Save  mapping  context 
Free  up  a  register 
Map  to  returned  data 
Point  to  returned  data 
use  APR  6  bias 
Move  data 

Restore  saved  register 
Restore  mapping 


DLMCOu  -  READ/AND  OR  ZERO  DLM 
Table  ot  contents 
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C  MACRO  V05.03b  Saturday  29-Jun-85  12:22 


5-  1,9         MACRO  CALLS  AND  LOCAL  DEFINITIONS 
CONTEXT  AREA  DEFINITIONS 
BK  DEFINITIONS 
DISPATCH  TABLE  ENTRY 
DLMTBO  -  DLM  COUNTER  TABLES 
DLMCOU  -  READ  AND/OR  ZERO  DLM  COUNTERS 
FNDDLM  -  FIND  THE  DLM  LINE  TABLE  FOR  A  CIRCUIT 


6- 

f>^ 

f- 

ftS 

8- 

fj 

9- 

H^ 

10- 

89 

11- 

12^ 

DLMCOu  -  RFAD/AND  OR  ZERO  DLM  C  MACRO  V05.03b  Saturday  29-Jun-85  12;<l? 
Symbol  table 


MPSMHO 

MP$MLB 

MPIMLK 

MPSMLN 

MPSMLP 

MPSMRB 

MP$MRO 

MPSMRP 

MP$MRT 

MP$MRV 

NPSMSB 

MPSMVE 

MPSMVI 

MPtMVR 

MPtMWN 

MPSMXB 

MPSMXC 

HPtMXR 

MPtMXW 

MPSNAA 

HPSNAC 

MPSNAP 

MPSNCT 

MPSNET 

MPtNL I 

MPSNNA 

MPSNOD 

MPSNRA 

MPSNRB 

MPSNSA 

HPSNTI 

MPSNUM 

MP$NVE 

MP$NXN= 

MPSOAC 

HPSOAN 

MPSOCO 

MP$OHO 

MPSONA 

MPSONR 

HPSOOL 

MPSOTI 

MPSOTY 

MPSOUS 

MPSOVE 

MPSOWN 

MPSPAR 

MP$P/'S 

MPSPCr; 

MPSPCO 

MPSPCT 

MPIPDT 

MPSPHA 

MPJDHY 

MPSPLI 

MPSPLN 

MPSPLO 


001633 

000202 

001306 

001631 

006333 

002171 

001 60S 

006322 

002153 

006320 

000170 

000K5 

001 63A 

001751 

00215^ 

002172 

000A66 

001630 

002U3 

006335 

001130 

006326 

000240 

0021U 

000765 

00076A 

000500 

006334 

0002U 

001617 

002U1 

001642 

001274 

001476 

000632 

000620 

000776 

000214 

000764 

002114 

001453 

000777 

001022 

00077"^ 

001010 

004374 

000036 

000513 

002152 

: 00024 

000144 

002114 

000170 

000012 

000025 

002140 

000012 


MPSPMC 

MPSPNT 

MP$PRI 

MPSPRO 

MPSPSS 

HPSPST 

MPSRET 

MP$RFA 

MPSRMX 

MP$RPA 

MPSRPR 

MPSRRT 

MPSRST 

MPtRSV 

MPSRSZ 

MPSRTI 

MPJRTM 

MPtRVE 

MPSRVT 

HPSSAC 

MPSSAD 

MPSSCA 

MPSSCO 

MPSSCT 

MPSSDU 

MPtSDV 

MP$SEH 

HPSSER 

MPSSET 

MPSSGZ 

MPSSID 

MPSSIN 

MPSSLI 

MPtSLO 

MPSSMX 

MPSSND 

MPSSNP 

MPSSNU 

MPSSOB 

MPSSPA 

MPSSPR 

MPSS^S 

MPSSTA 

MPSSTI 

MPSSTT 

IPSSTY 

MPSSUB 

MPSSL'R 

MPSSUS 

MPSSVR 

MPSSUI 

MPSSYP 

MPSTFL 

MPSTHI 

MP$TH2 

MP$TH3 

MPSTLN 


004374 

002126 

004411 

002130 

001763 

001762 

001631 

001323 

002201 

004374 

001606 

002213 

002212 

001754 

001756 

001616 

001611 

001604 

000156 

000514 

000543 

000310 

000144 

002176 

000203 

000160 

004401 

000144 

000000 

001644 

000176 

000310 

000156 

000171 

002202 

000500 

006332 

000542 

000524 

000157 

000536 

000513 

000000 

002140 

002201 

000175 

000001 

000156 

000512 

000163 

002260 

002424 

000156 

002206 

002205 

002202 

000202 


MPSTLO 
MP$TPA 
MP$TRI 
HP$TST 
MPSTYP 
MP$UCS 
MPSUSR 
MPSVEC 
MPSVER 
MPSUDF 
MPSWMX 
MPSXMT 
MPSXPF 
MPSXPL 
MPSXPT 
MP$XXX 
MP$5ST 
MS$ACT 
MSSADU 
MS$AL0 
HSSASE 
MSSATR 
MSSAUT 
MStCLE 
MSSDED 
MSSDIE 
MSSDUH 

msifa: 

HSSGLO 

MSSHOL 

MSSINA 

HSSLOA 

MSSLOO 

MSSOFF 

HS$ON 

MSSPRO 

MSSREA 

MSSREF 

HSSRES 

MSSRST 

MSIRSX 

MS$RT 

MSJSER 

MSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 

MS$TER 

HSSTOP 

MSSTRI 

MSSUNR 

MSSVMS 

MS. DON 

MS.MOR 

MS . PAR 

MS. sue 

MT$AR4 


000172 
004375 
002164 
000144 
002130 
004407 
001750 
004410 
004406 
002165 
002177 
002166 
000242 
000244 
000240 
V7777 

000001 
000010 
000007 
000006 
000011 
000000 
000003 
000004 
000003 
000004 
000013 
000000 
000002 
000002 
000003 
000002 
000001 
000000 
000006 
000004 
000001 
000003 
000001 
000002 
000005 
000002 
000002 
000007 
000000 
000012 
000001 
000003 
000005 
000005 
000004 
177600 
000002 
000003 
000001 
000003 
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MTSASC 

000100 
000001 

MtSNK 

889^?? 

MTSBIL 

HX$TYP 

000077 

MT$BYS 

MXSUID 

000020 

MT$CI 

§00077 

M$$CRB= 

000124 

MT$CLE 

M$$CRX= 

000000 

MT$COD 

000200 

M$$FCS= 

000000 

MTSCON 

000001 

M$$MGE= 

000000 

MTSDMC 

000004 

M$$NET= 

000000 

MTSETH 

000006 

M$$OVR= 

000000 

MTSHEX 

000040 

NM.CLN 

003400 

MTSLPB 

000005 

NM.INI 

002400 

HTSMAX 

000037 

NH.OPR 

003000 

MT$HUL 

000100 

NM.VR2 

002401 

MTSNLE 

000017 

NM.VR3 

002402 

MTSNON 

000001 

N$$ACC= 

000001 

MT$NR4 

000005 

N$$BUF= 

000001 

MTSNTY 

000060 

N$$LDV= 

000001 

MTSOCT 

000060 

N$$MCP= 

000001 

MTSPHA 

0000C2 

N$$MLL= 

000001 

MT$POI 

000000 

N$$MOV= 

000010 

mt$qp: 

OuOOlO 

N$$NCT= 

000001 

MTSRJU 

000000 

N$$PEH= 

000001 

MT$R04 

000004 

OC$ACK= 

000001 

MTSSEC 

000000 

OSACHD 

000012 

MTSSGD 

000020 

OSCALQ 

000016 

HTSSYS 

000002 

OSCLK 

000000 

MTSTER 

000001 

OSCNTL 

000003 

MTSTRI 

000002 

OSLENG 

000022 

MTSTYP 

007777 

OSLINE 

000004 

MTSUSD 

000000 

OSTRHD 

000006 

MT$X25 

000003 

0$WCT 

000002 

MUSING 

000001 

PDVID  = 

♦*»*««  GX 

MUSOUT 

000002 

P$$P45=: 

000000 

HUSPER 

000000 

P$$URD= 

000000 

Mvsni 

000000 

QC$ACK= 

000004 

MVSIV 

000001 

QC$ACT= 

000004 

MXSACT 

000020 

QCICIP= 

000001 

MXSCIR 

000020 

QC$ENB= 

000001 

HXSCLN 

000020 

QC$STP= 

000002 

MXSCNM 

000006 

QC$SVC= 

000002 

MXSCON 

000006 

QF$EXT= 

000377 

MXSDAC 

000020 

QF$FAS= 

000001 

MXSDTE 

000020 

QF$NRS= 

000144 

MXSFIL 

000034 

QF$PKS= 

000102 

MXSLGC 

000777 

QF$RRS= 

000300 

MXSLIN 

000020 

QF$TPC= 

000002 

riX$LON 

000006 

QF$WSZ= 

000103 

MXSNMS 

000454 

QS$ACT=: 

000016 

MXSNOD 

000006 

QS$APV= 

000002 

MXSOBJ 

000006 

QS$CCO= 

000030 

MXSOWN 

000040 

QS$CLC= 

000022 

MXSPAR 

000036 

QS$CLR= 

000026 

MXSPAS 

000010 

QS$CRQ= 

000004 

MXSRAC 

000047 

QS$CRV= 

000020 

MXSRID 

000047 

QS$CWC= 

000024 

MXSRPS 

000047 

QS$DAT= 

000000 

MXSSID 

000040 

QS$DPV= 

000032 
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000002 
000004 
000010 
000020 
OOOOAO 
000100 
000200 
000360 


OOOGOl 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
010000 
020000 
040000 
100000 


LPtTRB 
LPSHUX 
LP$MPT 
LP$UDV 
LP$WCN 
LP$UUN 
LP$WTR 
LP$WLD 


2 
4 

10 
20 

100 
200 
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TRIBUTARY  NUMBER  FOUND 

DEVICE  IS  MUX 

LINE  IS  MULTIPOINT 

WILD  CARD  DEVICE  NAME  FOUND 

WILD  CARD  CONTROLLER  NUMBER  FOUND 

WILD  CARD  UNIT  NUMBER  FOUND 

WILD  CARD  TRIBUTARY  NUMBER  FOUND 


=  LP$UDV1LP$WCN1lNwUN1LP$WTR  ;  WILD  CARD  FIELD  MASK 


FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 


LS$NTL= 
LS$STA= 
LS$COS= 
LS$OWN= 
LS$TAD= 
LS$ACT= 
LS$DEA= 
LC$NTL= 
LCSOWN: 
LS$DDT= 
LS$DLT= 
LSSPLT: 
LSSBBT: 
LSSNMT: 
LSSXMT- 
LStSER: 


1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

:10000 

20000 

:40000 

:1  00000 


NTL  SET  FUNCTION 

SET  STATE 

SET  COST 

SET  OWNER 

SET  TRIBUTARY  ADDRESS 

SET  MULTIPOINT  ACTIVE 

SET  MULTIPOINT  DEAD 

NTL  CLEAR  FUNCTION 

CLEAR  OWNER 

SET  DEAD  TIMER 

SET  DELAY  TIMER 

SET  POLL  TIMER 

SET  BABBLE  TIMER 

SET  NORMAL  TIMER 

SET  TRANSMIT  TIMER 

SET  SERVICE  [ENABLE/DISABLED 


FLAGS  WORD  BIT  DEFINITIONS  (L$FL1) 

LS$BSA=1  ;  SET  ACTIVE  BASE 

LS$BSD=2  ;  SET  DYING  BASE 

LS$8SI=4  ;  SET  INACTIVE  BASE 

LS$INA=10  ;  SET  ACTIVE  INCREMENT 

LS$IND=20  ;  SET  DYING  INCREMENT 

LS$IN1=40  ;  SET  INACTIVE  INCREMENT 

LS$TH1=100  ;  SET  DEAD  THRESHOLD 

LS$TH2=200  ;  SET  DYING  THRESHOLD 

LS$TH3=400  ;  SET  INAttm/e  THRESHOLD 

LS$MX8=1000  ;  SET  M'     1  BLOCKS 

LS$HTM=10000  ;  SET  HtLLu  TIMER 

LS$MDT=20000  ;  SET  MODEM  TEST 

LS$LOO=40000  ;  SET  CONTROLLER  LOOPBACK 

LS$NOR=100000  ;  SET  CONTROLLER  NORMAL 
.IF  DF  :i$$PRO  ;  PRO/DECNET 

LOOPBACK  TYPE  WORD  BIT  DEFINITIONS  (LSLTY) 


LS$INT  =  0 
LSSEXT  =  1 


INTERNAL  LOOPBACK 
EXTERNAL  LOOPBACK 


MODEM  TEST  TYPE  WORD  BIT  DEFINITIONS  (LSMDT) 


LSSLCL  =  0 
LSSREM  =  1 
LSSOFF  =  2 
.ENDC   ;  DF  Rt$PRO 


LOCAL  MODEM  TEST 
REMOTE  MODEM  TEST 
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